FPP 

SUPPORT LIBRARY 
USER'S GUIDE 



DEC-12-YEXA-D 



FPP 

SUPPORT LIBRARY 
USER'S GUIDE 



For additional copies, order No. DEC-12-YEXA-D 
from Program Library, Digital Equipment Corporation 
Maynard, Massachusetts 01754 Price: $5.00 



May, 1971 



Copyright (cT) 1971 by Digital Equipment Corporation 



Tne material in this manual is 
for information purposes and is 
subject to change without notice. 



The following are trademarks of Digital Equipment 
Corporation, Maynard, Massachusetts: 



DEC PDP 

FLIP CHIP FOCAL 

DIGITAL COMPUTER LAB 

OMNIBUS UNIBUS 



CONTENTS 



Page 



1.0 Introduction 1 

2 . 0 Hardware Requirements 1 

3.0 Nucleus 2 

3.1 Calls 2 

3.2 Nucleus Functions 2 

3.3 Interrupts 4 

3. 4 Location 005 5 

3.5 Buffered I/O 6 

4.0 Utility Routines 8 

4.1 Description of the Utility Routines 9 

4.2 Conversion Routines 10 

5.0 Mathematical Routines 11 

5.1 Implementing a Mathematical Routine 12 

5.2 Program Library LINCtapes 12 

5.3 Example 13 

5.4 Descriptions of the Mathematical Routines 14 

6.0 Customizing the Library 16 

6.1 Modifying the Assembly Sequence 16 

6.2 Library Constants 17 



1.0 INTRODUCTION 



The FPP Support Library is a group of routines to handle in floating 
point format all I/O and mathematical calculations commonly required 
by the user, thereby performing all FPP hardware interfacing for him. 
The operating speed and system modularity of the Support Library 
facilitate all operations. Only those routines requested in the pro- 
gram are loaded in by the FPP Assembler; there is no need to load the 
entire Support Library. The Support Library relieves the programmer 
from the task of generating his own utility (I/O and math) routines 
by providing an easily implemented wide range of calculations for the 
Floating Point Processor. 

This manual assumes complete familiarity with the FPP hardware (refer 
to the FPP User's Guide, DEC-12-GQZA-D) and the FPP Assembler (refer 
to DEC-12-AQZA-D) . 

The FPP routines are considered in three units: 



1. Nucleus - handles special conditions so that the user 
can effectively control unusual events that may occur 
during his particular FPP application. (Division by 
zero and trapped instructions are examples of these 
special cases.) The Nucleus may be interrupt or non- 
interrupt driven. Optionally, a fully buffered Tele- 
type 1 handler (input and output) may be loaded, in- 
creasing programming and running speed. 



2. Format Conversion routines - convert ASCII code to 
floating point format and vice versa. The ASCII is 
left in core so that it may be displayed or printed. 
Three conversion formats are available, referred to as 
E, F, and P, as well as carriage return/line feed and 
Teletype output routines. 



3. Mathematical functions - perform 22 different mathe- 
matical calculations, including trigonometric, lo- 
garithmic, and exponential functions. 



2.0 HARDWARE REQUIREMENTS 

The minimum hardware necessary to use the FPP Support Library is a 
PDP-12/40. 



1 Teletype is a registered trademark of the Teletype Corporation. 
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3.0 NUCLEUS 



The Nucleus of the FPP Support Library monitors the functioning of the 
Floating Point Processor. At the user's choice, it may be interrupt 
or non-interrupt driven. Although the FPP may be run in any field, 
the Nucleus of the Support Library handles only PDP-8 mode interrupts 
from field 0. The Nucleus occupies two pages of core and locations 
0000-0004 in field 0. Location 0005 contains a pointer which may be 
used as such (refer to Section 3.4) or for any other function. 



3.1 Calls 



All calls to the Nucleus are of the form: 



JMS I 4 /pointer inserted in location 4 

/at assembly time. 
FUNCTION /Function is second word 

xxxx /additional information 



3.2 Nucleus Functions 



At present, Nucleus functions 0-13 are implemented. (Note that these 
are Nucleus functions and not mathematical functions.) Most calls 
require a one-word argument; one requires two words; two require no 
argument. 

The functions are described below according to function number. 



Number Use 

0 Set the FPP program counter to the address specified 

by the :iext two words. This instruction is used be- 
fore the FPP is started. When the next start command 
is give.i, the FPP will start at this location, effect- 
ively placing the address in the FPP active parameter 
table. The coding is: 



JMS I 4 

0 /perform function 0 

JA START /the JA gives the 15 bit address 



When a divide by 0 occurs, JMS to the routine 
specified by the next word. The routine must be 
in field 0 and is user determined. The routine 
is called as if in an internal interrupt routine. 
To return, JMP indirectly to the subroutine entry 
point. The FPP is not restarted; it is up to the 
user to restart it. If a zero divide exit is not 
specif iad, the Nucleus sets the FAC to the 
largest number possible and restarts the FPP. 



2 



For example, assume the user desires to set the FAC 
to 0.0 instead of letting the Nucleus handle it. 
The following code must appear as part of 
initialization : 



JMS I 4 /call the nucleus 

1 

MYTHING /address of my routine on 

/zero divide 

Whenever a divide by 0.0 occurs, the Nucleus JMS ' s 
to MYTHING. The routine which performs the above 
task may look like the following. (For the moment, 
do not pay too much attention to where the FPP 
active parameter table is in core or to restarting 
the FPP . ) 



MYTHING , 0 /enter here on divide by 0 

DCA FPPEXP /zero out the exponent 

DCA FPPHGH /and the most significant bits 

DCA FPPLOW /and the low order bits 

JMS I 4 /and start it going 
10 

JMP I MYTHING /now return to the Nucleus 



Other tasks could be done here, such as changing 
the FPP program counter to go to a different lo- 
cation on starting. Note that the program counter is 
preserved on the interrupt and that when it is started 
it starts at the next instruction after the divide 
by 0.0. 



2 If an exponent overflow should ever occur, JMS to the 

location specified by the next location. This call 
is similar to the divide by zero exit, function 1. 
If no overflow exit is specified, the FAC is set to 
the biggest number possible and the FPP is restarted. 



3 Set the underflow exit location. This function is 

similar to function 2, but will exit if an underflow 
occurs. If no return is specified, the FAC will be 
set to 0.0 and the FPP will be restarted. 



4 Set the fraction overflow exit. If an overflow occurs 

while in double precision mode, the Nucleus will JMS 
to the location specified. If none is specified, the 
FPP will be set to the largest integer fraction and 
the FPP will be restarted. 



5 Set the instruction trap exit. If an instruction trap 

occurs, JMS to the location specified. At present, 
instructions 3-7 trap. Instruction trap 3 will be ex- 
plained later. This function will only transfer con- 
trol on traps 4-7. If no exit is provided, the FPP 
will be restarted at the location following the trap. 
In effect, the trap will be ignored. 
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6 Set the: FPP FEXIT location. This is the "normal" 

exit condition and should always be specified. 
This location is the address of a user supplied 
subroutine to which the Nucleus issues a JMS at FPP 
exit time. A "normal" exit from this subroutine 
returns the user in-line to his non-FPP code. If 
no exit is provided, the FPP will not be restarted. 



7 Set the FPP IOT exit. If an FPHLT is given, control 

is passed to the specified location. If none is 
specified, the FPP will be restarted. Remember that 
FPHLT is a PDP-8 IOT and not an FPP instruction. 



10 Start the FPP running. This call takes no arguments; 

the FPI' is started from information in the FPP ac- 
tive parameter table. The Nucleus then returns after 
it is started. 



11 Clear Nucleus. This call causes the FPP to be halted 

and the mode reset to floating point. In addition, 
any buffers associated with the Nucleus at the time 
are cleared. This is a general system reset. There 
are no arguments in this call. 



12 Set FPP "character received" exit. While using the 
library I/O routines, control will pass to the speci- 
fied location with the character just typed on the 
console Teletype in the AC. This allows the user to 
examine input for control characters. If the user 
wishes to process this character, return indirect as 
described for function 1; if he wishes to have the 
routines ignore the character, ISZ the return loca- 
tion and then J MP . If the exit return is not speci- 
fied, all characters will be processed. (This func- 
tion does not concern the FPP hardware; therefore, 

do not try to start the FPP while in this routine.) 

13 Set the FPP f ailed-to-start exit location. If a 
start command is issued to the FPP and it fails to 
start, control is passed to the specified location. 
This instruction is useful when running on non-FPP 
systems. If no exit is specified, the Nucleus will 
attempt to restart the FPP. 



14-17 These commands are not used. 



3.3 Interrupts 



As mentioned previously, interrupts with the Nucleus are the user's 
option. If they are being used, a pointer to an interrupt exit routine 
must be placed in location 3. Additional device tests may be placed 
here if desired. When control is passed to this location, the AC, LINK, 
and MQ will be as ;hey were at interrupt time so that it appears that 
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the interrupt was just received. (The AC, LINK, and MQ must be re- 
stored by the user.) It should be noted that location 3 will be 
assembled last, so that the user must place his pointer in it at 
execution time. The following code would suffice to clean up after an 
interrupt: 



START , 



POINT, 
MYLOC , 



TAD 
DCA 

XXX 

MYLOC 
ION 



JMP I 0 



POINT 
3 



/place pointer to my interrupt 
/routine 

/in the correct location 

/other code 

/where to go to exit 

/turn on interrupts, or test 

/other device 

/and return to someplace 



If interrupts are not to be used, all that is required is that the 
user JMS to 0 so that the FPP can check its flags. Location 3 does 
not have to be changed. The following demonstrates a brief program 
which divides 1 by 3 and then exits. 



START, 



200 



ALLDUN , 



CODE, 



LOOP, 



4 



4 



ORG 
CLA 
JMS I 
11 

JMS I 
0 

JA CODE 
JMS I 4 
6 

ALLDUN 
JMS I 4 
10 

JMS 0 
JMP .-1 



0 

HLT 
JMS I 

JMP I 



ALLDUN 



SETX 
SETB 5000 
STARTF 

FLDA ( 1 . 

FDIV (3. 
FEXIT 

JA LOOP 



/clear AC to be sure 
/reset the FPP 

/set the FPP program counter 
/where to start 

/pointer 



/wait for completion 
/by looping 

/JMS's here in 8 mode when FEXIT 
/just halt as an example 



/and return 

/users should always define indices, 
/bases , 

/and mode first 



/after FEXIT returns, do it again 



3.4 Location 005 



Frequently the user may wish to get to the active parameter table, 
MQ, etc., following an interrupt. This may be accomplished by using 
location 5 which points to the center of a table such as the following 
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ORG 


5 




FPPTAB 






ORG 


S OMEP LACEELSE 


0 




/contains MQ on interrupt 


0 




/contains LINC on interrupt in bit 0 


0 




/contains AC on interrupt 


0 




/contains FPP status if FPP 






/interrupted 


0 




/contains command register to be used 






/next time FPP is started 


0 




/extended bits of FPP active table 


0 




/low order bits of FPP 


0 




/low order bits of location of 






/index 0 


0 




/low order bits of base register 


0 




/low order bits of operand 


0 




/exponent of AC 


0 




/high order word of AC 


0 




/low order word of AC 



As mentioned before (Section 3.2, function 5), the 3000 trap instruc- 
tion is treated differently. When a 3000 trap instruction is encoun- 
tered, the Nucleus will do a JMS in PDP-8 mode to the location speci- 
fied by the address field of the trap instruction. This allows the 
user to call a PDP-8 program. The return is to JMP indirectly to 
the entry of the user routine. The FPP will be restarted automatic- 
ally. 

3.5 Buffered I/O 



If the user wishes to have the buffered I/O routines in the Nucleus 
loaded into core, he issues the following dummy statement: 



IO=BUFFERED 



This will cause the buffered I/O routines to be loaded directly be- 
hind the Nucleus. The routines are approximately four pages long, 
including buffers. There are three FPP entry points: 



PUTC Normalizes the FAC, fixes it, and then puts the low 

order 8 bits into the Teletype buffer. If the Tele- 
type buffer is filled, waits until a location becomes 
vacant and then stores away the character and returns 
to the user. 



GETC Gets a character from the buffer, providing the 

line is complete (ends in a carriage return) . If 
there is no full line in the buffer, the routine will 
"hang" until a character is available. Thus, this 
routine provides automatic line editing because a 
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line is not available until a carriage return is typed. 
If the user is typing in a line, he may type "RUBOUT" 
to delete the last character in the present line. All 
"rubbed out" characters are enclosed in form characters 
(a back slash). CTRL/U deletes the current line. The 
next example illustrates what the user would see if he 
typed the following (NOTE: * means RUBOUT and \ is a 
backslash) . 

The quick drown* ****brown fa*ox jumpep*d into 
the truck. 

The quick drown\ nword\ brown fa\a\ox jumpep\p\d into 
the truck. 



CTRL/U gives a closing form if it occurs in the middle 
of a RUBOUT sequence, as does a carriage return. If 
some other form of output is going on at the time, the 
system will echo characters sporadically. If the output 
buffer is full, the system will not echo the character. 
If the input buffers are full, the system will echo a 
"bell" instead of the character and the character is 
lost. If both input and output buffers are filled, and 
a character is typed, it will not be entered and the 
bell will not be echoed. Both the input and output 
buffers are each approximately 80 characters long. More 
than one line may be entered into the input buffer before 
any characters are removed. 



IOOUTW This call will "hang" until all output is finished. 

This is useful for terminating a job when characters 
may still be in the buffers and have not yet been 
printed. 



The buffered I/O routines are about four pages long. The Input/Output 
routines always immediately follow the Nucleus in core loading. If 
the user does not specify where to put the Nucleus, it will put itself 
at location 200 with the buffered I/O right behind it. The user may 
specify where it is to go by setting the symbol FPPORG to the desired 
value. This setting only covers the Nucleus and the buffered I/O por- 
tion of the Library Support package. The mathematical and utility 
routines will always be put at the end of the user's program. To ori- 
gin the Nucleus at the end of the user's code, he must just type 



FPPORG=. /this will set the FPPORG to 

/the next free location 



Remember that the Nucleus and the buffered I/O must be in field 0. 

All other routines may be anywhere (including crossing field boundaries) . 
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4.0 UTILITY ROUTINES 



The Library Support: Utility routines are the link between the floating 
point mathematical world and the ASCII Teletype world. These routines 
do no actual I/O themselves, but call the routines in the buffered I/O 
package (PUTC and GETC) if needed. If the user is not using the buf- 
fered I/O package and he is using a utility routine which can call one 
of these routines, he must insert a routine which performs the same 
function. These routines are similar in function to the mathematical 
routines (refer to Section 5.0) in that the calling sequence and manner 
of loading are the same. It should be remembered that all functions 
are JSA'd with the argument in the accumulator. The second argument, 
if present, is in base register 10. It should also be noted that the 
routines are free to use base registers 0 and 10-17 and index registers 
0-1. The conversion routines (F, P, E) also use index register 2. 
Therefore, the user should not depend on these locations having the 
same value on exit from a routine as they had on entry. Many routines 
require a pointer which always goes in base register 0. When doing 
input (or output) using the pointer, the characters are packed one 
ASCII character per word and the pointer points to the string of char- 
acters. The first word in this string is the count of the number of 
characters in the string. For example, to print on the Teletype 



call the routine PUTSTR ("put string" which is described in Section 
4.1) to put a string out on the Teletype which starts at the location 
to which base register 0 points, with the pointer in location 0. This 
code is : 



ii 



FPP LIBRARY 



ii 



FLDA MYP 

FSTA BASE0 

JSA PUTSTR 
xxx 



/set up pointer to string 
/store in base register 0 
/type it out now 
/more FPP code 



MYP, 



JA OUTS 



/pointer to output string 



OUTS, 



14 

306 

320 

320 

2 40 

314 

311 

302 

322 

301 

322 

331 

256 



/12 lfi)f = 14_ characters long 



/F 
/P 
/P 



/space 



/L 
/I 
/B 
/R 
/A 
/R 
A 



/. "FPP LIBRARY." 
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Note that if the buffered I/O package is being used, the preceding ex- 
ample would probably return almost immediately, because the routines 
have approximately 80 characters of buffer for output. If the buffers 
are not full, then PUTSTR will call PUTC to store it in the buffer. 
This overlapped I/O generally greatly increases through-put. 



4.1 Description of the Utility Routines 



Routine Description 

CRLF CRLF calls PUTSTR with a pointer set up to a 215,212 

(a carriage return/line feed) . Thus a JSA to CRLF 
produces a carriage return/line feed on the Teletype. 
No arguments are necessary. 



GETNUM This routine translates an input string of ASCII 

characters to a floating point number by calling GETC 
to get characters. It will continue to assemble char- 
acters as a floating point number until an illegal 
character is found. It then returns with the number 
in the FAC. The bad character is left as a floating 
point number in base register 17. For example, assume 
the user wants to get three floating point numbers 
from the Teletype. The following is acceptable: 

JSA GETNUM 

FSTA ONEN 

JSA GETNUM 

FSTA TWON 

JSA GETNUM 

FSTA THREEN 

Now consider the following Teletype input 

1234,1. 453,-. 005E+09 

The variable ONEN contains a 12 34.; the variable TWON 
contains a 1.453; the variable THREEN contains a 
-5000000. GETNUM ignores blanks (spaces). Note the 
effect of a misplaced + sign: 

234 5. 6E+00+9, ,4. 562, . 2345 

ONEN contains a 2345.6; TWON contains a 9 (because 
the second plus is illegal in that context) ; THREEN 
contains a 0, because there are two illegal charac- 
ters in a row (the two commas). The 4.562 and the 
.2345 are returned on subsequent calls to GETNUM. 



PUTSTR The put string routine types out a string of ASCII 
characters packed one per word on the Teletype by 
calling PUTC. The pointer is in base register 0. 
The first word pointed to by the pointer is the num- 
ber of characters to print. When done, base register 
0 is pointing to the location after the last character 
in the string. This is helpful for printing when using 
the conversion routine. 
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4.2 Conversion Routines 



Three sets of conversion routines are available to convert floating 
point numbers to ASCII; they are referred to as E, F, and P. E con- 
version is of the form Em.n, where the m is the total number of spaces 
and the n is the number of places after the decimal point. A number 
in E format has the syntax: 



(m-n-8 spaces) (sign (blank or -)) (decimal point) 

(n digits) (space) (E+xxx (where xxx is the exponent)) 



If insuffucient space is provided (e.g., E10.13), asterisks are gener- 
ated. To specify the values of m and n (here E15.8) use the following: 



FLDA (8.. /load second arg into FAC 

FSTA BASE+30 /place in BASE register 10 

FLDA (15. /get the total width 

JSA ETYPE /call the conversion setup 



The E conversion routine is now set up to use E15.8 as its standard 
format. Any conversions done will be in E15.8, but may be changed at 
any time by recalling ETYPE. There exists a routine for each conver- 
sion: FTYPE sets up the F conversion and PTYPE sets up the P conver- 
sion. At any time, the user may do a conversion by calling ECON (E 
conversion). Thus to convert 1/3, do the following: 

FLDA ( 1 .. /3 . 

JSA ECON /conversion is now done 

The answer is left ::.n core, packed one character to a word, starting at 
the location to which base register 0 pointed. Thus, if at some pre- 
vious time a pointer to YYY was placed in base 0, YYY would contain 
the following after the conversion: 



YYY, 17 /number of characters to follow (base 8) 

25 b /. 

263 /3 

26 3 
2 63 
26 3 
2 63 
263 
261 

264 /note slight error from rounding 
2 40 /a space 

305 /E 
253 /+ 
260 /0 
260 /0 
2 60 /0 
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The FPP has approximately six digits of accuracy. Hence, as more 
digits are to be printed, some error will occur. In general, the 
extra digits will depend on the algorithm presently being used. The 
user should note that, in general, the seventh digit and those greater 
are not meaningful. 

P conversion is similar to E conversion, except that the first digit 
is before the decimal point. This is referred to as scientific nota- 
tion. Thus 1/3 printed in P format 20.10 is 

ss 3. 3333333333sE-001 (where s represents a space) 

The call to convert a number for P conversion is PCON. The call for 
F conversion is FCON. 

At the end of a conversion, base 0 is left pointing to the next charac- 
ter (i.e. , one more than inserted) . 

Because base register 0 is always correctly updated, conversions can 
be performed and then printed without resetting base register 0. The 
following example will convert and print three random numbers. Assume 
that FTYPE had been called to set up the F conversion for F13.7. 



FLDA 


MYPUNT 


/set up correct pointer 


FSTA 


BASE0 


/save in base 0 


JSA 


RAND 


/generate a random number 


JSA 


FCON 


/convert it 


JSA 


RAND 


/second number 


JSA 


FCON 




JSA 


RAND 




JSA 


FCON 




FLDA 


MYPUNT 


/reset the pointer again 


FSTA 


BASE0 


/and store in 0 


JSA 


PUTSTR 


/now output three strings 


JSA 


PUTSTR 




JSA 


PUTSTR 





(Of course, the previous example could have been done in loop, but 
this expanded version better illustrates the calling method. ) 

5.0 MATHEMATICAL ROUTINES 

The mathematical routines in the FPP Support Library perform commonly 
used math functions, such as sine and cosine of an angle, natural log, 
etc. These functions are, in general, independent of each other and 
the Nucleus and, therefore, may be used individually. Be sure to 
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check the description of the routine being used to ensure that the 
proper argument is given so that the correct answer will be returned. 

When extracting a math routine to use it independently , note any rou- 
tines that it calls: or possible error traps that may result. There 
are no TRAP 3 instructions in the mathematical package. However, there 
are TRAP 7 instructions which are used to indicate error conditions for 
various functions. If the user is decoding the TRAP 7 instructions, 
the operand address contains a number which corresponds to an error 
code. The user may then take appropriate action. He may set the FAC 
in the active parameter table so that the function will return with 
that value. If the user is not handling the TRAP 7 instructions, the 
FAC will normally be a random value on exit from the function. 

5.1 Implementing a Mathematical Routine 

To use one of the mathematical functions in the "standard" manner, 
simply JSA to the function with the argument in the FAC. (The func- 
tions must be called in floating point mode [STARTF] ) . Additional 
arguments (if necessary) go in base register locations 10-17, respec- 
tively. For functions requiring a pointer, the pointer goes into 
location 0 on the base page, The mathematical functions are free to 
use base registers 0, 10-11, and index registers 0 and 1. Because 
of the modular nature of the FPP Support Library, new routines will 
be added and existing routines changed as improved and/or faster algo- 
rithms become available. Remember that the package uses the IFREF 
pseudo-op, so only those routines referenced will be assembled and 
loaded. 

5.2 Program Library LINCtapes 

The FPP Mathematical Library supplied by the DEC Program Library re- 
sides in two files: FPPLIB and FPPLB1. The last statement in FPPLIB 
is CHAIN "FPPLB1"1 which causes an assembly of FPPLIB to chain to the 
rest of the source, Note that the FPP Support Library must be on unit 
1 (or unit 11) , unless the user changes the CHAIN command. In addi- 
tion to these two files , there exist three more files called FPPLIBS , 
FPPLB1S, and FPPLBilS. These are similar to FPPLIB and FPPLB1 , except 
that most of the symbols and comments have not been removed. The 
symbols were removed from FPPLIB and FPPLB1 to speed up assembly and 
to allow the user to have more symbols in his program. 
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5.3 Example 



The following is a complete program to print the sines and cosines of 
angles from 1° to 360° in steps of 1° using the FPP Nucleus and the 
buffered I/O for output. All output conversion will be in the format 
F15.8. 



NOTE 

As presently implemented, the routines all use a 
set of common constants. By using these, much 
space is saved in duplicated literals. These con- 
stants are referred to as FPPCOM; if any routine 
is to be removed to be used stand-alone, check to 
see if it uses one of these constants. Also note 
that because these routines use the FPP, they are 
constrained by accuracy limitations. In addition, 
faulty arguments can cause underflow and overflow 
conditions to result, with resultant loss of accu- 
racy. For the user's convenience, the symbol FPPNXT 
points to the first free location following the func- 
tions . 



ENDOFJ, 



START, 



LOOP, 



ORG 


200 


JMS I 


4 


11 




JMS I 


4 


0 




JA 


START 


JMS I 


4 


6 




ENDOFJ 




JMS I 


4 


10 




JMS 


0 


JMP 


.-1 


0 




HLT 




SETX 


14000 


BASE 


15000 


SETB 


15000 


STARTF 




FLDA 


(8. 


FSTA 


15030 


FLDA 


(15. 


JSA 


FTYPE 


JSA 


CRLF 


LDS 


-550,7 


LDX 


0,6 


ADDX 


1,6 


XTA 


6 


JSA 


MYPUT 


XTA 


6 


JSA 


MYPUT 


XTA 


6 



/start of my routine 
/call nucleus to clear all 
/function 11 

/now set the starting PC 

/good address 

/now set the done return 

/end of job exit 

/now start the FPP going 

/now wait for it to finish 
/with an infinite loop 
/entry point 
/and halt when done 

/set the index positions 

/and the base positions 

/enter floating mode (good habit 

/in case of restart) 

/set up the 8 for F15.8 

/save in base 10 

/get the 15 

/set up F conversion 

/give initial CR/LF 

/550 =360 0 

/present p angle 

/increment angle 
/get angle in FAC 
/send it out 
/recall it again 
/print it 
/recall again 
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JSA COSD /perform the cosine of angle 
JSA MYPUT 

JSA CRLF /give final CR/LF 

JXN LOOP, 7+ /loop around until done 

JSA IOOUTW /wait for I/O to finish 

FEXIT /then exit 

MYPUT, JA . /entry for the little putter routine 

FSTA 15003 /save argument for a second 

FLDA MYPS /set up pointer for the convert 
/routine to use 

FSTA 15000 

FLDA 15003 /recall the number 

JSA FCON /convert it 

FLDA MYPS /get pointer to where it was put 

FSTA 15000 /and reset it again 

JSA PUTSTR /output it to the Teletype 

JA MYPUT /and return 

MYPS, 0 /necessary filler 

JA 17 700 /working space for convert answer 

IO=BUFFERED /tell it to load I/O routines 
FPPORG=. 

CHAIN "FPPLIB"l/and call in the library 



5.4 Descriptions of the Mathematical Routines 

A complete description of each of the FPP Support Library Mathematical 
routines, including implementation, follows. 

RAND Random number generator. RAND does not require any argu- 

ments. The returning FAC contains a random number between 
0.0 and 1.0. 



ABS 



Absolute; value function. This function returns with the 
absolute value of FAC in the FAC. 



SQRT SQRT takes the square root of the FAC. The answer is re- 

turned in the FAC. If the FAC is minus on entry, a TRAP7 3 
is issued. If no action is taken, the routine returns with 
the argument in the FAC. 



SIGN SIGN returns with a -1, 0 or +1 , depending on whether the 

calling FAC was minus, zero, or positive. This function 
is very useful for imparting the sign of one item to ano- 
ther item. If the user desires to have A have the sign 
of B, then the following code is sufficient: 

FLDA B 
JSA SIGN 
FMULM A 

AMOD AMOD is a two argument function which returns the follow- 

ing in :he FAC: FAC=A-INT (A/B) *B. Effectively this func- 
tion re -urns A modulo B. The function is called with A 
in the FAC and B in base register 10. If it is impossible 
to integerize A/B, a TRAP 7 11 is issued; if no action is 
taken, A/B is returned. 
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EXP 3 is used for raising a base to a power. This is com- 
monly represented by A**B, where A is the base and B is 
the power (e.g., 10**3=1000). EXP3 is called with the 
base in the FAC and the exponent in base register 10. The 
answer is returned in the FAC. This function uses ALOG and 
EXP and is, therefore, subject to the additional constraints 
imposed by these functions. Special cases: 0**X=0, X**0=1, 
0**0=0; raising a negative number to a non-zero power will 
give a TRAP 7 with an operand address of 0. If the FAC is 
not changed, AC will contain the negative base on exit fol- 
lowing a TRAP7 0. 



This function raises E to the FAC. If the FAC is greater 
than 2**23 (unable to fix it) , a TPAP7 4 is issued. If no 
action is taken, this function returns with ABS (FAC) . This 
function can get underflows and overflows for large values 
of the FAC, even though it can be fixed. 



This routine takes the log of the FAC base E and returns 
with it in the FAC. If the FAC is less than zero, a TRAP 7 6 
is issued; if FAC=0, a TRAP 7 7 is issued. In either case, 
if no action is taken, the argument is returned. 



ALOG10 returns the log of the FAC base 10 in the FAC. The 
user must remember that ALOG returns the log of the FAC in 
base E, hence the reason for two log routines. This func- 
tion calls ALOG. 



SIN returns with the sine of the FAC in the FAC. The FAC 
argument is in radians. If the absolute value of the FAC 
is greater than 2**23 (unable to fix it) , then a TRAP 7 5 
is issued. If no action is taken, the function returns with 
the ABS (FAC). This function will tend to produce better 
answers if the FAC is less than 2tt in magnitude. 



This routine takes the sine of the FAC. The FAC is in de- 
grees as opposed to radians. This function calls SIN. 



Arc-sine routine. This function returns with the arc-sine 
of the FAC in the FAC. Functions SQRT and AT AN are called. 
Answer is in radians. If the absolute value of the incom- 
ing argument is greater than 1, a TRAP7 2 is issued. If 
no action is taken, the function returns with ABS (FAC) -1 
in the FAC. 



This routine returns with the hyperbolic sine of the FAC 
in the FAC. This routine calls EXP. 



This routine takes the cosine of the FAC. The FAC is in 
radians. This routine calls SIN. 



COSD takes the cosine of the FAC. The FAC is in degrees 
as opposed to radians. This routine calls SIN. 
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ACOS Arc-cosine function. This function returns with the arc- 

cosine of the FAC in the FAC. Functions SQRT and ATAN 
are called. Answer is in radians. If the absolute value 
of the incoming argument is greater than 1, a TRAP 7 1 is 
issued. If no action is taken, the function returns with 
ABS(FAC)-1 in the FAC. 



COSH This routine returns with the hyperbolic cosine of the FAC 

in the FAC and calls EXP. If the ABS (FAC) -ALOT (2) is 
greater than 88.029, a TRAP7 12 is issued. If no action 
is taken, the largest possible number is returned. 



TAN TAN takes the tangent of the FAC which is in radians. The 

routine calls SIN and COS. IF COS ( FAC) =0 , a TRAP 7 10 is 
issued. If no action is taken the FAC=0 on return. 



TAND TAND takes the tangent of the FAC which is in degrees 

This routine calls TAN. 



ATAN This function returns with the arc-tangent of the FAC in 

the FAC. The answer is in radians. 



ATAN 2 This function returns the arc-tangent of the FAC. The 

answer is returned in radians. This is a two argument 
function., The second argument (in base register 10) de- 
termines in which quadrant the user should be returned. 
Only the sign of the second argument is used. This func- 
tion calls ATAN. The values of the answer can be summar- 
ized : 



If 



B>0 

B <0 ,A<0 
B <0 , A>0 



Then: 



ATAN (A) 
ATAN (A) +PI 
ATAN (A) -PI 



TANH This routine returns the hyperbolic tangent of the FAC in 

the FAC. This routine calls SINH and COSH. 



6.0 CUSTOMIZING THE LIBRARY 

The information prasented in this section is not necessary for using 
the FPP Support Library provided by the DEC Program Library; it is, 
however, useful for modifying the Support Library for individual re- 
quirements . 

6.1 Modifying the Assembly Sequence 



The FPP Support Library is provided in two separate files: the Nucleus 
(and buffered I/P) in file FPPLIB, and the Utility and Mathematical 
routines in file FPP LB 1. It is possible to use one of these files 
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without the other. For example, the LDP system processes users' inter- 
rupts so that it is somewhat incompatible with the FPP Nucleus. Be- 
cause the Utility and Math routines have only FPP code in them, they 
may be used with the LDP system. The Nucleus and buffered I/O need 
not be loaded. To accomplish this, only the statement 

CHAIN "FPPLIB"1 

need be changed to 

CHAIN "FPPLB1"1 

which will cause assembly to continue at FPPLB1 rather than at FPPLIB , 
which contains only the Nucleus and buffered I/O files. Note that some 
of the Utility routines call PUTC or GETC. If the Utility routines 
are being used without the Nucleus, the programmer must insert his own 
PUTC or GETC routines in their place. Also, some functions have error 
exits which the user must handle if a TRAP7 X instruction occurs. No 
action need be taken on it, but he must be prepared to restart the FPP. 
The TRAP 7 error exits are: 



Trap # Cause 

0 EXP 3 - A**B, where A<0.0 and B^0.0 

1 ACOS - ABS(FAC)>1.0 

2 ASIN - ABS(FAC)>1.0 

3 SQRT - FAC<0.0 

4 EXP - FAC cannot be integer i zed 

5 SIN - FAC divided by 2n cannot be integerized 

6 ALOG - FAC<0.0 

7 ALOG - FAC =0.0 

10 TAN _ FAC=7r/2 (90 degrees in radians) 

11 AMOD - ABS (argl/arg2) cannot be integerized 

12 COSH - ABS (FAC) - ALOG ( 2 ) > 8 8 . 02 9 



6.2 Library Constants 

The FPP Support Library uses several constants which are always pres- 
ent and which the programmer may reference. It is good practice to use 
these constants in order to avoid wasting core space. The constants 
are : 
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Constant 



Contents 



FPPONE 1.0 

FPPTWO 2.0 

FPPPI 7T ( 3.14159265) 

FPP2PI 2tt 

FPPPI 2 tt/2 



They exist in the definition section, called FPPCOM; their ordering 
must not be changed nor can any of them be removed because they are 
not always referenced by name. 
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/ 
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DC A 




FPPRET 
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JMS 
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THE USERS POINTER NOW . 
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I 


FPPRET 


/AND 


STASH IT AWAY CORRECTLY , 
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I 
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/AND 


RETURN TO THE USER » 
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/GETS 
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I 
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/AND 


BOP UP THE POINTER. 


0306 


0*327 
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I 
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/AND 
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I 
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I 
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I 
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I 
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6557 
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I 
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I 
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CLA 


CLL 
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I 
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I 
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/ 
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/ORIGIN PAST PREVIOUS LATERALS 
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ORG FPPOOO 
GTREST 

ORG FPPIT3 
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ORG BUFFER 



/SAVE ORIGIN FOR LATER 



/ADDRESS OF CLEAR 

/OVER ITERUPT VECTOR. 
/TO INTERUPT ROUTINE 

/RESOTRE OLD ORIGIN, 
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GFTCCC , 
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/AFTER TRAP COMES HERE, 
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TAD I 


GETCPP 


/GET A CHARACTER. 
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GETFPP 


/STORE IN THE FPP AC, 
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/DECREMENT THE CHARACTER COUNT, 
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T AO 
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OCA 


GTCUNT 
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GETCPP 


/GET THE LAST CHARACTER , 
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CGTM215 
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1035 
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/•MAXIMUM NUMBER OF CHARACTERS I 
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/RUB0UT5 ON, TURN THEM OFF, 
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/SEND IT OUT, 
/CLA EXIT, 
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1**1 




n c a 

u >«i A 


fi t a 1 1 b <i 

UP 1 nUDfl 


/yep ClFAP ft 1 1 T FLAG 


12*2 




fin 

T *D 


01 i334 




1 *<0 






to 1 PK 1 




1 *«« 




1 *U 


V 1 * 1 0 




« O 'J * 

12*3 




t mi e 
J "5 


to 1 r K 1 


/ ft Ki TUP T P I fT T V P P 
/UN 1^5, 1 tut 1 T"t| 






T *D 


toT * 1 * 




1 Q •'3 "» 

1**7 






to T r K T 


yftiiT rnrc tup i tms cpcn 
/UUi toUto Inc. (pi^E PttUi 


1230 






GTTEST 


4 a A 1 A A (T V 1 1 n a; 

/AND RETURN 


1231 










12 £2 










(All 

i * a 










1234 










1235 










I 0 1 A» 

1 c jo 


rTUfiuci 


¥ A PS 

TAD 


rTBnac 
to T RUB5 


yruPPu tup DimiiiiT pi 


1237 




SZA CLA 






1 O 4 r] 

1240 






toT nRB2 


ynrtKi t ai\r\r e 1 1 P Mill ttPi P Piibciiitc 
/DUN T FUDtot U" fiw^TlrU*- KUDUUTO 


1*41 




"f B T 


6TKUB5 


/ 0 1 1 KUBUUi rL«to» 


1242 




TAD 


a. t 1 1 a 
tor 334 


/ BL T klT A i pAftTAJC <S 1 idU 

/rKINT A UtAUl^w 3L*3fi| 


1*43 




J MS 


to 1 rK 1 




1244 


/ 








1 * •» o 


b T W K D * | 


IMC T 


S U 1 DAblV 


yftAT* UP ftMP rWARATTFR 
/ a * u n yr vine. v™**"'*wiC'~t 


1*40 




■ IS A tt At A 

SPA SNA 




/ A A, V TUC DC4 

/ ANT T ntKCi 


1 «*»7 




J MP 


<1 m C V V T 

to T E X. X T 


/Nurt, 






Tun 

J "3 


(TDDT 

57 PK T 


/VCD BDTklT TT 
/Ttr f pKINT lit 


1*31 






to 1 1 1 0 1 


J A k: [1 P X T T 
/ANU t A i | 


* * 3* 


4? 








A * ■» v 


y 
/ 








1*3* 


t 








1235 


/ 








1 <5o 


A 

f 








1257 


/ 








12o? 


/ 








12»1 


/ 








1262 


/ 








120*3 


GPPFUt » 


Tad 


GT207 


/RING BELL IF INPUT BUFFER FUlLLt 


1 n a 4 

1204 






f* w a b m 

GTrRT 




1 O ft n 
1*00 






to \ 1 1 a 1 


/Akin. PVTT F 0 ft to TUT C OftllTTKiP 
/ANU t X I 1 rKUrn 1 "io HUWIANC* 


* * OO 


4 
/ 








1 O K 7 
1*0/ 


/ 








12/0 


/ 








1271 


/ 








( 5 .ft 

1*7* 


/ 








1 * r <3 


toT 1 ' / , 


1 7 7 






1274 


GT200, 
6THj0f 


200 






1275 


• 10 






1276 


6 T H 1 5 2 f 


* 152 






1 nil 

12' 7 


ST33A » 


334 






1340 


&T21&# 


215 






1341 


to T 2 1 < * 


212 






1302 


GT207, 


207 






1303 


GPUCUNT 


.PUCUNT 






1304 


CPUM03T 


,PUMOST 






1305 


GPUTMY f 


PUTMY 






I30p 


GfTFPP, 


FPPTAB+10 




1307 


GTTGOT, 


FPPOQO*! 




1310 


/ 









13U 

ma 

1313 
13U 
1315 
1316 
1317 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 

1330 
1331 
1332 
1333 
1334 
1335 
133fi 
1347 

1340 
1341 
1342 
1343 

1344 
1345 
1346 
1347 

1351 
1352 
1353 
1354 

1355 

1356 
1337 
13o0 
1361 
1352 
1363 
1364 
1365 
1366 
1367 
1370 
1371 
1372 
13/3 
1374 
1375 
1376 
1377 
1400 
1401 

1402 
1403 
1404 
1405 
140$ 



PAGE 



EJECT 



6TM0EL* JMS GTBACK 

SMA SZA CLA 
JMP ,-2 

JMP I (GTMRUB 



EJECT 



6PPUTI, 0 

OCA 1 (GTPRT 

TAD I (GTCUNT 

TAD I CGTMAX 
SNA CLA 

JMP I CGPPFUL 

TAD I (dTPRT 

DC A I GPPQNT 

1SZ I (GTCUNT 

JMS GPPBOP 
6PP0NT* GPLO* 

JMP I 6PPUTI 



/BACK UP ONE CHARACTER, 

/UNTIL THE END OP LINE HAS BEEN 

/LOOP XP NOT DONE 

/WHEN DONE, SIMULATE ONE RUBOUT 



/THIS ROUTINE PUTS A CHARACTER I 

/SAVE FOR SECOND . 

/TEST THE COUNT 

/AGAINST MAXIMUM ALLOWED. 

/TOOOO BI IGGGT 

/YEP, RETURN WITHOUT STICKING IT 

/RECALL THE CHARACTER 

/STICK IT IN, 

/BOP THE COUNTER. 

/AND BOP THE POINTER 

/INITIAL WALUE. 

/AND THIN EXIT. 



GPPBOP, 0 



/POINTER BOPPER, 



407 
410 
411 
412 
413 
414 
415 

416 
417 
420 
421 
422 
423 
424 
425 
426 
427 

430 
431 
432 
433 
434 
435 
436 
437 
440 
441 
442 
443 
444 
445 
446 

447 
450 
451 
452 
453 
454 
455 

456 
457 



I5Z I 
TAD 1 
TAD 

32 A CLA 
JMP 

T AO I 
OCA I 

GppBEX, IU 

J*P I 



461 
462 
463 
464 
465 
466 
4 67 
470 
471 

472 
473 
474 
475 
476 
477 
500 
501 
502 
503 
504 



EJECT 



GTBACK, 0 

CLA CM A 

TAD I 
SPA 

J*P I 

OCA I 

CU CM A 

TAD 
OCA 
TAD 
TAD 

S2A CLA 
J MP 
TAD 
OCA 
TAD I 
TAD 

SNA CIA 

JMP 

TAD I 

JMP 1 

/ 

GPRINS, TAD I 

JM8 
JMP I 



EJECT 



GPPBOP 
GPPBOP 
GPPUPL 

GPPBEX 

CGPPR3T 

GPPBOP 

GPPBOP 

GPPBOP 



(GTCUNT 

GTBACK 
(GTCUNT 

GPPONT 
GPPONT 
GPPONT 
GPTST1 

,+3 

GPRSTl 
GPPONT 
GPPONT 
6TM215 

GPRINS 
GPPONT 
GTBACK 

(GT215 
GPPUTI 
GTBACK 



/BOP THE POINTER. 

/GET THE POINTER. 

/CHECK AGAINST THE LIMIT , 

/OK? 

/YEP, EXIT 

/RESET THE POINTER 

/BOP OVER ARGUMENT 
/AND RETURN. 



/THIS ROUTINE BACKS UP THE BUFFE 
/BOP DOWN THE COUNT 

/IF YOU CAN, THAT IS i 
/ELSE RETURN, 

/STORE BACK CORRECT COUNT, 

/BOP DOWN THE INPUT POINTER ALSO 



/TEST FOR LOWER END WRAP ARAQUND 
/•LOWER BUFFER-1 
/TOO FAR? 
/NOPE, 

/YEP, RESET POINTER, 

/RECALL THE OLD CHARACTER, 
/IS IT A CARRIAGE RETURN? 

/YEP, 

/NOPE, REFETCH CHAR AND RETURN, 



/TOO FAR, STICK C.R. BACK IN, 
/AND EXIT NOW, 



NECESSARY CONSTANTS AND VALUES, 



GTM 2 15, -215 



5d5 


GPRST 1 . 


GPHIGH 






546 


G P T S T 1 1 


*GPL0W*l 




5d7 


GPPUPL f 




4 
I 




b 1 & 










5i 1 


y 








5 1 2 

v A ft 










513 

WAV 


y 








514 


y 








515 










5l6 










5 1 7 










520 


y 








521 


y 








522 


' 








523 










524 










525 


y 








526 


y 








527 




w W t- 1 
















531 










532 


y 








533 










v V ** 










535 


y 








536 


y 








537 










54k 










541 


y 








542 


PUTM Y 2 )i 






/THIS SHALL GET THE CHARACTER, 


543 




TAD I 


CPPPTAB+ift 


/GET THE CHARACTER. 


^ it 




1 M C 


P 1 1 T M V 


/AND SEND IT OUT 


545 




JMP I 
» <i» 


PUTMY2 


/AND RETURN, 


546 


/ 








547 


/ 








55(3 


> 

r 








5» w * 


t 
f 








552 


P U T M Y » 








553 




nr a 

Vwll 


n t ft a r K 


/SAVE FOR A SECOND. 


554 




TAD 


PUCUNT 


/CHECK THE COUNT. 


555 




t An 


PlIMflHT 

r u n u o i 




556 




9 N A L L A 






557 




IMS 


r U D U 9 T 


/ITS STILL PULL, DELAY. 


5 6$ 




1 *W 


fj t ft a r k 




561 




OCA T 

W v P 4. 


PUPIINT 


/Save in buffer 


w V C 




10 2 


P 1 1 r 1 1 hi T 

r U U U IN 1 


/RHP THF fniJNT. 


563 




t M C 


D 1 1 T C C T 


/TEST ALL FLAGS. 


564 




t M C 

j rn o 


rUODr 


/BOP MY POINTER. 


WWW 


P 1 1 P 1 i kl T a 


Pill n ui P u 






3 00 




JMP I 


D 1 I T LI W 

P U T M Y 


V A k ft U F T 1 1 O K! 


567 


i 
f 






57tf 


J 
f 








57 i 

w ' * 


PllSUSY i 


IMC! T 


*» 


/RESET FPP PC 


S79 




0 






7 ^ 




JA 


PUTDLY 




574 




JMP I 


PUTMY 


/AMD RETURN FOR NOW, 


57 5 


/ 








576 


PUBOP, 








577 




TAD I 


PUBOP 


/GET THE POINTER, 


6Gfc 




TAD 


PUUPTS 


/CHECK THE UPPER LIMIT, 


601 




SNA 






64)2 




TAD 


PURST 


/ITS THERE RESET 



1603 

1604 
1605 
1606 
1607 
16165 
16U 

I6te 

1613 
1614 
1615 
1616 
161? 
1620 
1621 
1622 
1623 
1624 

1625 
1626 
1627 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 

1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1670 
1671 
1672 
1673 
1674 
1676 
1676 
1677 
1700 



TAD 

OCA I 
ISZ 
JMP I 



PUFUOGE 

PUBOP 
PUBOP 
PUBOP 



UCUNTf 0 
PUMOST, PJLOW£R«PUUPPER«l 
PUUPTS, »»UUPPER 

URST, PJLOwgRfPUUPPER-1 

UFUDGE,PJUPPER*1 

UFLAG, 0 



UTIST 



PU^ONT 



0 

TSP 

JMP 
TCF 
OCA 
TAD 

SNA CL A 
JMP I 
T AO 

S1A CL A 

JMP I 
TAD I 

T„S 

Cu A CM A 
TAD 

DC A 
ISZ 

PJUOWER 
JMP I 



UREST, 0 

TAD 
OCA 
OCA 
OCA 
JMP I 



,*3 

PUFLAG 
PUCUNT 

PUTEST 
PUFLAG 

PUTEST 
PUPONT 



PUCUNT 
PUCUNT 
PUPLAG 
PUBOP 

PUTEST 



PUPUNT 
PUPONT 
PUCUNT 
PUFLAG 
PUREST 



/ANO STORE BACK AFTER CRRRECT I NG 

/AWAY IT GOES. 
/BOP PAST THE ARG„ 
/AND RETURN 



/READY 
/NOT NOW, 
/CLEAR IT 

/AND REGARD SAID FACT 
/TEST BUFFER 

/EXIT ON NO CHARS. 
/TEST TTY FLAG 

/EXIT IF NOT READY. 
/GET A CHARACTER 
/OUTPUT IT, 
/BOP DOWN THE COUNT 



/RESET FLAG, 

/AND BOP THE POINTER. 



/TURN OFF ALL FLAGS. 



1701 
17*2 
17*93 
1704 
1705 

x 7 we 

17*7 
1710 
1711 

1712 
1713 
17U 
1715 
1716 
1717 
172* 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
173£ 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1740 
1741 

1742 
1743 
1744 
1745 
1746 
1747 
1730 
1761 
1752 
1753 
1754 
1755 
1756 
1757 
1760 

1761 
1762 
1763 
1734 
1765 
1766 
1767 
1770 
1771 
1772 

1773 
1774 

1775 

1776 



EJECT 



PAGE 



GTTEST 
POTEST 

/ 

GTGTGT, 0 

JMS I 
J*S I 



GTGTGT"* 1 
GTGTGT*2 
GTGTGT 



/CHECK BOTH BUFFERS 
/THEN EXIT WHEN DONE . 



GETC 



JA 

FUD A 
J EG 
TR4P3 
F NOR m 
J A 



GTLN-2 

GETC*2 
GETCCC 

GETC 



/THIS ROUTINE GETS A CHARACTER F 
/GIT NUMBER OF LINES IN BUFFER. 
/IF NO LINES IN BUFFER LOOP , 
/IP THERE ARE CHARACTERS THERE • 
/GET ONE BY TRAPPING AND BRING I 
/THEN RETURN WITH THE CHARACTER 



/ 

PUTC, J A 
ALfv 

PliTLOP, TRAP3 
J A 



i 

0 

PUTMY2 
PUTC 



/THE ROUTINE TO PUT A CHARACTER 
/FIX THE CHARACTER, 

/TRAP OUT NOW 

/AND EXIT WHEN DONE. 



PUTDLY, LDX 
JXN 



1000,0 
,0* 



/THIS ROUTINE DELAYS IF NECESSAR 
/BECAUSE THIS WILL LEAVE THE FPP 



1777 
20130 
2041 
2002 
2003 
2004 
2005 
2046 
2047 
2010 
2011 
2012 
20 1 3 
2014 
2015 

2016 
2017 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2030 
2031 
2032 

2033 
2034 

2035 
2036 

2037 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2050 
2051 
2052 
2053 
2054 

2055 
2056 

2057 

2060 
2061 

206g 

2063 
2064 
2065 



OOUTW 



J* 



J A 

STARTO 

FLDA 

ATX 

START? 

J)i K 
J A 



PUTLOP 



PUCUNT-1 
0 

I00UTW*2,i 
IOOUTW 



/WHEN DOME, WE Wilt TRAP AGAIN. 



/THIS WAITS FOR ALU OUTPUT TO BE 

/GET NUMBER OF CHARACTERS TO DO, 

/PLACE IN AN INDEX. 

/IN FLOATING MODE AGAIN. 

/WAIT IP NOT DONE. 

/EXIT IF OK a 



GFLOW», 

PAGE 

GPHlGHi.»l*13 

PLLOWERiGPHIGH*l 

PIUPPER1.+177 

0 

PAGE 



2066 
2057 
20/p 
20/1 

20/3 
2074 
20/5 
2i5/ft 
2077 
2130 
2101 
2102 
2103 
2104 

0000 
0001 
0002 

0003 



EJECT 

If 90S 
ORG 



FPPOIQ^, 
FPPQLO 



CHAIN "FPPLBIS"! 



/FIND OUT WHERE WE ARE , 

/IP WE DON T OVERLAP, ORIGIN WHE 



0004 

0005 
0006 
0007 

0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 

0022 
0023 
0024 
0025 
0026 
0027 

0030 
0031 
0032 

0033 
0034 
0035 
003$ 
0037 
0040 
0041 
0042 
0043 
0044 
0045 



EJECT 



FPP-QEF, 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
146 MAIN STREET, 
MAYNAKO, MASSACHUSETTS. 

01754 



WRITTEN BY JACK BURNESS, 



0046 
065 47 
0050 

0052 
0053 
0034 
0035 
0056 
0067 
0030 
0061 

0062 

0053 

0064 
0065 
0066 
0067 

00/0 
0071 



EJECT 
BASE 



770CH) 



MCRTPB»7700» 

l«CRTPl«MCRTP8 + 30 

MCPTP?*MCRTPl+3 

MCRTP3«MCRTP2*3 

MCRTPa ? MCRTP3*3 

MCRTPbiMCRTP4*3 

MCRTP6*MCWTP5*3 

MCRTH7»MCRTP6*3 

MCRTPfl«MC«TP7*3 



0072 


/• ? 6 0 0 


3001 


F P P 0 N E # 


1. 




£ li. 60 1 


200tf 








/. p 6 f> 2 


0000 






00?3 


tffc603 


00 02 




2. 




#0604 


2000 










3000 






0074 






/ 




00 7 5 






/ 




0076 






/ 




0077 


0 It 6 0 6 


0001 


FPPPI2, 


1 


0100 


0 0 6 0 7 


3110 




3110 


0101 


0fc610 


3755 




3755 


0102 






/ 




0103 


0k«l i 


0002 


FPPPI, 


2 


0104 


0P/.612 


311* 




311* 


0106 


0 6 l 3 


3755 




3755 


0106 






/ 




0107 


0^614 


0003 


FPP2PI, 


3 


0110 


0fc615 


3110 




3110 


0111 


0 0 6 1 6 


37 5 5 




3755 


0112 






/ 




0113 






/ 




0114 






/ 




0115 






/ 




0116 






/ 




0117 






t 




0120 






/ 




0121 






/ 





/THESE APE THE COMMONLY USED CON 



NOTE I DO NOT MOVE THE ORDER OF THESE AROUNO, 
/PI DIVIDED BY 2, 



/PI 



/TWO PI 



012* 

(3123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 
0142 
0143 

0144 
0145 
0146 
0147 
0150 
0151 
0152 
0153 
0154 

0155 
0156 
0157 
0160 
0161 
0162 
0163 
0164 

0165 
0166 
0167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 



t JECT 

JFREF RAND 



Ranq 



* A N D 



COPYRIGHT 1971 

DIGITAL, EQUIPMENT CORPORATION 
MS MAIN STREET * 
MYNARDp MAS5ACHU53ETTS. 

01754 



WRITTEN BY JACK BURNESS, 



f ; JECT 



M A 


FRNOC1 


/RANDOM NUMBER GENERATOR, 


FLDA 


/RANDOM CONSTANT, 


fMUUM 


PRNDX 


/MULITPLY BY OLD RANDOM NUMBER . 


STAR TO 




/NOW DO SOME FIDDLING. 


MOA 


FRNOCY 


/GET THE CYCLIC, 


ATX 


0 


/PUT CYCLIC IN AN INDEX 


t LDA 


FPPPI2M 


/ "0000000 1 H 


t ST A 


FRNDX-1 


/SET EXPONENT IN 1-2 RANGE, 


JXN 


, + 4„ 0* 


/IF CYCLICP0, THEN DO EXTRA BOP, 


MOD 


FPPPI2»t 


/"00000001" 


P ; AODM 


FRNDTM 


/ADD IN MAGIC TEMP. 
/RECALL AND SAVE CYCLIC 


)i T A 


0 


f ST A 


FRNDCY 


/FOR NEXT TIME, 


P'CUA 




/ZERO THE FAC 


FSTA 


FRNOTM-1 


/CLEAR OUT EXTRANEOUS BITS FROM C^TSft. 


f ST A 


FRZERO 


/CLEAR OUT ZERO WORD, 


F LO A 


FRNQX+2 


/GET THE LOW ORDER BITS NOW. 


»" G£ 


FRNDPO 


/PRESERVE HIGH ORDER BIT IN INDE>: p. 


to-x 


*1 f 0 




si A 


FRN0P0+2 





0217 
4220 
4221 
4222 
4223 
0224 
4225 
0226 
0227 

42*5/ 
0231 
0232 
0233 
0234 
023!) 
023© 
0237 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0230 
0251 
0232 
0233 
0254 

0255 
025b 
0257 

0290 
0261 
0262 
0263 
0264 
0265 
0266 

0267 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0347 
03161 
0311 
0312 
4313 
0314 



PRNDPOi lox 


0 f 0 




F ST A 


FRZERO+1 


/SAVE THfcM AWAY, 


P LD A 


FRNDTM 


/RECALL ADD*IN FACTOR 


F A D 0 H 


FRZERG 


/ADO IT IN NOW, 


FID A 


FRNOX 


/RECALL RANDOM HIGH ORDER WORD 


FST A 


FRZERO-t 


/OVERLAY EXTRANEOUS CARHY, 


S T A R T F 




/GET BACK INTO ELATING MODE. 




PRZEKGM 


/RECALL RANDOM NUMBER 


JXN 


F RNQQK , 0 


/DO NOT FLIP AROUND ,5 


FNEG 




/DO FLIP AROUND ,5 


F ADD 


FPPTWO 


/ 2»»RND(1 TO 2) 


JA 


• +4 




FRNOOK, FSuB 


FPPONE 


/ RNDfl TO 23*1, 


FMUL 


FPPTWO 


/ BRING INTO THE 0-2 RANGE AGAIN 




FPPONg 


/ COMPENSATE FOR CENTER LINE ERR*** 


JGE 




/IT S STILL POSITIVE, EXIT. 


F ADO 


FPPONt 


/ WE VE OVER CORRECTED, ADD IN. 


FST A 


FRNOX 


/AND SAVE FOR THE NEXT TIME ARQUtfD, 


J A 
0 


R AND 


/RETURN NOW, 



PRNOTM, 


0 




0 


/ 






0 


FRNOX , 


• 36 




3562 




7227 


/ 




/ 




/ 




FRNDC1 , 


22 




3224 




2342 


/ 




/ 






0 


FRZEkO, 


0 




0 

0 


PRNDCY, 


0 




0 



/DUMMY COUNTER WORD , 
/RANDOMIZING LOOP COUNTER. 

/EXPONENT OVERLAY WORD, 
/LAST RANDOM NUMBER , 



/RANDOMIZING CONSTANT C I HOPE), 



IFREF EXP3 



EJECT 



0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0327 
0330 
0331 
0332 
0333 
0334 

0335 
0336 
0337 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0350 

0391 
0352 
0353 
0354 
0355 
0396 
0357 
0360 



COPYRIGHT 1971 

DIGITAL, EQUIPMENT CORPORATION 
146 «AIN STREET i 
MAYNARDi MASSACHUSETTS, 

01754 



WRITTEN BY JACK BUR NESS . 



EJECT 



0361 




IXP3 RAISES A BASE 


TO A POWER. 


0362 




X«A**B 


IN FORTRAN 


NOTATION. 


0363 










0364 










0365 










0366 


IXP30K, 


JSA 


ALOG 


/TAKE LOG OF THE NUMBER, 


0367 




FMUL 


MCRTP8 


/MULITIPLY BY HIS POWER, 


0370 




JSA 


EXP 


/NOW RAISE IT, 


0371 


/ 








0372 


iXP3, 


JA 


• 


/RETURN AND ENTRY , 


0373 


/ 








0374 




JEQ 


EXP3 


/0*X»0 


0375 




FSTA 


MCRTP2 


/SAVE BASE 


0376 




FLDA 


MCRTP1 


/GET POWER AND SAVE 


0377 




JEQ 


EXP30N 


/Xa0»1 


0400 




FSTA 


MCRTP8 




0401 




PLDA 


MCRTP2 




0402 




JGE 


EXP30K 


/ALL IS WELL, 


04*3 




TRAP? 


0 


/GIVE TRAP, 


0404 




JA 


EXP3 


/AND RETURN, 


0405 


t 








0406 


»xP3ok, 


FLDA 


FPPONE 




0407 




J A 


EXP3 


/AND RETURN 


0410 


/ 








0411 


/ 








0412 


/ 









*a 4 1 3 






041 4 


/ 




04 15 




% 


0416 




JFRFF AB3 


0417 


/ 




14420 


t 




042 1 






(3422 






0423 


/ 




0424 


/ 




0425 


/ 




4426 


/ 


ABS 


0427 


/ 


m m m 


0440 


/ 




0431 


/ 




0432 


/ 




0433 


/ 




0434 


/ 




0436 


/ 




0436 


/ 
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0437 


/ 
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0440 


/ 


146 MAJN STREET, 


0441 


' 


MAYNARQ* MASSACHUSSETTS, 


0442 


/ 


(U7 54 


0443 


/ 




0444 


/ 




044*) 


/ 




0446 
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0447 






0430 


/ 




0451 


/ 




0452 


/ 




0433 


/ 




0454 


/ 




0456 






0456 


/ 




0457 


/ 




0450 




EJECT 


0461 






0462 






0463 


1 




0464 


f 




0465 


t 




0466 






0467 


A§S. 


JA , 


047G 




JGE ABS /RETURN IF X»«0 


04/1 




F NEG / X b • X 


0472 




J A ABS /AND RETURN 


0473 


/ 




0474 


/ 




0475 


/ 




0476 


/ 




0477 


/ 




0500 


/ 




0501 


/ 




0502 


/ 




0503 


/ 




0504 


/ 




0505 




S 


0506 




IFREF T ANN 


0507 


/ 




0515? 


/ 





45li 
0512 
0513 
0514 
0515 
051& 
45\7 
0580 
0521 

0522 
0523 
0524 
0525 
0526 
0527 
0530 
0531 

0532 
0533 

0534 

0535 
0536 

0537 
0540 
0541 
0542 
0543 
0544 
0545 

0546 
0547 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0560 

0561 
8562 
0563 
0564 
0565 
0566 

0567 
0570 
0571 
0572 

0573 
0574 

0575 
0576 
0577 
0600 
0601 
0602 

0603 
0604 
0605 
0606 



N H 
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EJECT 



' A N H 



JA 

FSTA 

JSA 

FSTA 

ELD A 

JSA 

FDIV 

JA 



MCRTP6 

COSH 

MCRTP5 

MCRTP6 

SINM 

MCRTP5 

TANH 



/HYPERBOLIC TANGENT ROUTINE, 

/SAVE ARGUMENT 

/PERFORM COSH 

/SAVE IT AWAY. 

/RECALL ARG, 

/PREFORM SINH, 

/SINH/COSH»TANH. 

/AND RETURN NOW. 



S 

I FRFF 



S I N 



SINH 



4647 

46ii 

4612 
4613 

«S615 
4616 
3617 
4640 
4621 
4*22 

4623 
0624 

4626 

4626 
4627 

4630 
4631 
4632 
4633 
4634 
4636 
4636 
4637 
4640 
4641 
4642 
4643 
4644 

4646 

4646 
4647 

4660 

46DI 
4632 
4663 
4664 
4655 
4656 
4637 
4660 
4661 
466g 
4663 
4664 
4665 
4666 
4667 
4670 
4671 
4672 
4673 
46/4 
4675 
4676 
4677 

4744 
4741 
4742 
4743 
4744 
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EJECT 



FLO A 



SINH, JA 

PSTA 

JGE 

FNEG 

F ST A 

FSUB 

JL E 

FSUB 

JGE 

FLO A 

JSA 

F ST A 

F LO A 

FOIV 

MEG 

F ADO 

FOIV 
JA 

/ 
/ 

SINHAP, FLDA 
FSUB 
JSA 
FST A 
FLDA 
JGE 
FNEG 
JA 

/ 



MCRTP7 



MCRTP8 
• ♦3 

MCRTP7 

SINH1 

SINHSR 

SINH2 

SINMAP 

MCRTP8 

EXP 

MCRTP7 
FPPONE 
MCRTP7 

MCRTP7 

FPPTwO 
SINH 



MCRTP7 
SINHLG 
EXP 

MCRTP7 
MCRTP8 
SINH 

SINH 



/RESTORE AND EX IT ( 



/SINH ROUTINE, 
/SAVE THE ARGUMENT, 
/MAKE IT POSITIVE, 

/AND SAVE ABS VALUE IN CASE WE N 

/IS IT LESS THEN ,1? 

/YES, USE SERIES APPROXIMATION, 

/IS IT GREATER THEN 88,029? 

/YES, USE LOG (2) APPROXIMATION, 

/RECALL THE NUMBER 

/EXP(X) 



/1/EXPCX) 

/M/EXPfX) 

/EXPCXJ-I/EXPCX) 

/ 1/2CEXPCXW/EXPCX)) 

/AND RETURN NOW, 



/RECALL ABSOULTE VALUE, 

/ABS(X)«.LN(2) 

/EXP(ABS(X)«LNC2)) 

/GET SIGN OF ARGUMENT. 

/LOAD POSITIVE IF ARG WAS POSITI 

/ELSE NEGATE IT, 

/AND RETURN, 





/ 








SINH5R# FLDA 


MCRTP8 


/X SERIES IF X*,l 


0707 


FMUL 


u f* rt *p r\ a 

MCRTP8 


/ X a 2 


07 10 


FST A 


MCRTP7 


/X a2 


»d 7 X I 


F My l 


Li r □ t ri u 


/ X a 3 




r S T * 


n L n 1 r o 




0713 


FMULH 


MCRTP7 


/Xa5 




FDIV 


3INH3 


/Xa3/6 


0715 


F A D D M 


MCRTP8 


/X*Xa3/« 




FLDA 


MCRTP7 


/Xa5 


0717 


FOIV 


SINH4 


/Xa5/120 


0720 


FAOO 


MCRTP8 


/X*Xa3/6*Xa5/120 


0721 


JA 


SINH 


/VOILA, WE ARE DONE, 



0722 
0723 
0724 
0725 
0726 
0727 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0740 
0741 

0742 
0743 
0744 
0745 
0746 
0747 
0730 
075)1 
0752 
0753 
0754 
"3755 
0756 
0757 
0760 
0761 

0762 
0783 
0704 
0705 
0766 
0757 
07 70 
0771 
0772 
0773 
07 7 4 
0775 
0776 
0777 
1000 
1001 

U02 



/ 
/ 
/ 

SINHIG, 0 



INHl, 
3 1 NH2 , 
SINH3, 
SINH4, 



2613 
4412 

• 1 

87,929 
8, 

120. 



S 

IFREF 



CQSH 
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003 


/ 








004 


/ 








005 


/ 








006 


/ 








007 


/ 








id 1 0 


/ 








Gil 




EJECT 






012 


/ 








013 


/ 








014 


/ 










/ 








016 


/ 








01; 


/ 








02W 


/ 








6121 


COSH, 


JA 


• 


/HYPtPBOLIC COSINE, 


022 




FSTA 


MCRTP8 


/SAVE ARGUMENT 


023 




JGE 


.♦3 


/ABS(X) 


024 




FNEG 






025 




FSTA 


MCHTP7 




026 




FSU9 


COSHl 


/TEST FOR LIMITS. 


027 




JGE 


COSHBG 




030 




FUOA 


MCRTP8 


/X 


031 




JSA 


EXP 


/EXP(X) 


032 




FSTA 


MCHTP7 




033 




FLO A 


FPPONE 


71. 


034 




FDIV 


MCRTP7 


/ l./EXPCX) 


035 




F ADO 


MCRTP7 


/ EXP(xm./EXP(X) 


036 




FOIV 


PPPTWO 


/ CeXP(X)*l,/EXP(X))2. 


037 




JA 


COSH 


/AND THAT IS THE DEFINITION OF C 


04£ 


/ 








041 


/ 








042 


COSH&G, 


F5UB 


COSMLG 


/SEE IF TOO BIG 


043 




JGT 


COSHE 


/YEP, ERROR 


044 




F AQD 


COSHl 


/READD IN SUBTRACTION FACTOR, 


045 




JSA 


EXP 


/ EXP(ABSCX)*LNC2)) 


04ft 




JA 


COSH 


/ A VERY GOOD APPROXIMATION. 


04? 


/ 








050 


/ 








051 


COSHE, 


FLO A 


C0SH8 


/GIVE INFINITY IN CASE OF NO REC 


052 




TRAP7 


12 


/ERROR TRAP 


053 




JA 


COSH 


/AND EXIT, 


034 


/ 








055 


/ 








056 


C05HIG, 


0 






057 




2613 






060 




4412 






061 


/ 








062 


COSHB , 


3777 






063 




3777 






064 




7777 






005 


/ 








066 


7 








067 


COSHl , 


88,029 




/LIMIT FACTOR. 


070 


/ 








071 


/ 








072 


/ 








K>73 


/ 








07 4 


/ 








075 


/ 








076 


/ 








077 


/ 








100 




* 







101 

1*3 
104 
1*6 
106 
1*7 
110 
111 
112 
113 
114 
115 

lib 
117 
120 
121 
122 
123 
124 

125 
126 
127 
130 

131 
132 
133 
134 
135 
136 
137 



IFREF ACQS 



141 
142 
143 
144 
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EJECT 



145 


ACOSOK, 


FLDA 


MCRTP8 


/x 


146 




FMUL 


MCRTP8 


/Xa2 


147 




FNEG 




/«Xa2 


150 




F ADO 


FPPONE 


/1-X*2 


151 




JSA 


SORT 


/SORT C i»X *2) 


152 




FOIV 


MCRTP8 


/SQRTC1.X*2)/X 


153 




JSA 


ATAN 


/ATAN(SQRTCU»Xa2)/X) 


154 




JXN 


ACOS,0 


/NO SIGN CHANGE NECESSARY , 


155 




F ADO 


FPPPI 


/ADD PI IF MINUS. 


156 


/ 








157 


ACQ!!', 


JA 


• 


/ENTRY AND EXIT. 


160 


/ 








161 




FSTA 


MCRTP8 


/STORE AWAY, 


162 




JEO 


ACOSEQ 


/IF ZERO RETURN PI OVER 2. 


163 




LDX 


• 1,0 


/JUMP TIME, 


164 




jgi 


.♦5 




165 




LDX 


0,0 




166 




FNEG 






167 




FSU8 


FPPONE 


/1»IXI 


170 




JLE 


ACOSOK 


/IS IT LESS THIN 1, 


171 




TRAP7 


1 


/NO. ERROR 


172 




J A 


ACQS 


/AND RETURN. 


173 


/ 








174 


/ 








175 


/ 








176 


ACOSEQ, 


FLO A 


FPPPI2 


/RETURN PI OVER 2 IF ZERO. 



1177 

\2d9i 
1201 
1242 
12*3 
12d4 
1205 
I 2*36 
12*7 
1210 
12U 

1212 
1213 

12U 
1215 
1216 

121; 

122fc 
1221 

1222 
1223 

1224 
1225 
1226 

1227 
1234? 
1231 

1232 
1233 

1234 

1235 

1236 

1237 

124(2 

1241 

1242 

1243 

1244 
1245 
1246 
1247 
1250 

1251 
1252 
1253 
1254 
1255 
1256 
1237 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 

\2n 

1271 
1272 
1273 
1274 



JA 



ACQS 



/AND RETURN NOW. 



$ 

XFREF ASIN 



A S I N 

m m m m 
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EJECT 



/ 

ASIN, 

/ 



FLDA 


MCRTP6 


/X USES STRAIGHT TR 


PNEG 






PMUL 


MCRTP8 


/»Xa2 


F ADD 


FPPONE 


/l ,*Xa2 


JEO 


ASINEQ 


/IF 0,FAC»PI OVER 2 


JSA 


SQRT 




PSTA 


MCRTP7 


/S0RT(1.»Xa2) 


PUD A 


MCRTP8 




PDIV 


MCRTP7 


/X/SQRTC1.XA2) 


JSA 


AT AN 


/TAKE THE ARCTANGENT. 


4A 


• 


/AND RETURN, BU8BY . 


PSTA 


MCRTP8 


/STORE ARG AWAY, 


JGE 


• +3 


/TAKE ABSOLUTE VALUE, 


PNEG 






PSUB 


FPPONE 


/SEE IF *l 


jue 


ASINOK 


/CONTINUE PROCESS, 



07 *S 

ftt f V 




TP. AP7 


2 


/TRAP OUT. 


o~ta 
<t/0 




1 A 


• O A N 


/ K t 1 (J K iN a 


€r 1 










V<0(0 










0 W 1 


i * T ml n 


C| pi A 


r r r r A i 


/PFTURN PI OVER TWO 






V Ml II 


nun i r o 


/TTMPC: ADR 


1 /a "» 

003 




J * 


ICTki 

AO 4 N 


/ A M n PFTHPM 


3id4 










3i/)S 
www 










3 1>$ 6 










3itf7 










3** 




ft 






ill 




IFREP 


COSD 














w 4 w 










3 \ 4 










die 




f* ft A 

COS 


D 








• » «• 


m 




it* 










0<65 










3*U 










322 










323 










0 0 










2 ft 
040 




COPYRIGHT 1971 




326 




DIGITAL 


EQUIPMENT CORPORATION 


027 




146 MAIN 


STREET f 




tin 

t 000 






MASSACHUSETTS 


• 
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SAO 
w w c 










>333 


/ 








k 334 










1 1 ft 

00 5 
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• 


000 










w w f 










>346) 










>04i 




















w *» 0 










w *♦ * 










040 










> 346 










,347 




EJECT 






300 










> 0 w 1 










k 302 










k 353 










l3o4 


COSP i 


JA 




/COSINE IN DEGREES, 


oOo 




E ADD 


COSD90 


/ADD IN 90, 


1 <S A 
03 0 




FDIV 


C0SD91 


/AND FUOGE UP A BIT 


0 0' 




JSA 


SIN 


/TAKE THE SINE NOW, 


V £ A 

1,3619 




J A 


COSD 


/AND RETURN, 


,001 


/ 








Aft 0 

IBB* 


/ 








l W w w 










,304 


COSO90, 


90, 






i365 


COSD&l » 


6 






,366 




3451 






367 




3561 






370 


/ 








37t 


/ 








3/2 


/ 









1373 
13/4 
13/5 
13/6 
13/7 

14^0 

1401 

1402 
14^3 
14^4 
1405 

143/ 

1411 
1412 
1413 
1414 
1415 
1416 
141/ 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
142/ 
1438! 
1431 
1432 
1433 
1*34 
1435 
1436 
14 3/ 
l44&> 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1460 
1461 
1462 
i403 
1454 
1405 
1406 
1 40/ 
14/0 



SIND, 



S 

IFREP 



SIND 
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EJECT 



6 

3451 
3561 
JA 

FDIV 
JSA 
J A 



JFRfF 



SINO-3 
SIN 

SIND 



T AND 



/SINE OF ARGUMENT I N DEGREES, 
/CONVERT TO RAOIAMS, 
/TAKE TMfc SIN. 
/AND RETURN NOW, 



N 0 



U/l 
1472 
1473 
1474 

1475 
1476 
1477 
1500 

i aw l 

1502 
1503 
1504 
1505 
1506 
1507 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
152? 
1521 
1522 
1523 
1524 
1525 

1526 
1527 

1531? 
1531 
1532 
1533 
1534 
1535 

15^6 
1537 
1540 
1541 
1542 
1543 
1544 
1545 

1546 
154; 
1550 
1551 

1552 
1553 
1554 
1555 
1556 
1557 

1560 
1501 
1562 
1563 
1564 
1565 
1566 



T AND , 
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EJECT 



6 

3451 
3561 
JA 

FDIV 
JSA 
J A 



IPREF 



TANO-3 
TAN 
T AND 



TAN 



/CONVERT TO RADIANS, 
/CAUL THE TANGENT NOW. 
/AND RETURN, 
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567 
5/0 
5/i 

5/2 
5/3 
5/4 
5/5 

5/6 
5// 

641 
642 
643 
644 

645 
646 
647 

614 
6U 
612 
613 
614 
615 
616 
617 
624 
621 
622 
623 
624 
625 

626 
62/ 
b34 
631 

632 
633 
634 
,635 
636 
637 

644 
641 

642 
643 
64« 
645 
646 
64/ 
654 
651 
652 
633 
654 
655 
696 
657 
66(? 
661 

662 
663 
1664 



EJECT 



THIS IS A PRETTY FEEBLE TANGENT ROUTINE FOR THE PRESENT, 



AN, JA 
JEG 
F ST A 
JSA 
JEQ 
FSTA 
PUD * 
JSA 
FDIV 
J A 



ANEW, TRAP? 
J A 



TAN 

MCRTP8 

COS 

TANER 

MCRTP7 

FiCRTPS 

SIN 

MCRTP7 
TAN 



10 

TAN 



IFREF 



C 0 



COS 



/ENTRY FOR THE TANGENT. 

/IF ZERO RETURN NOW, 

/SAVE FOR A SECOND, 

/TAKE THE COSINE NOW , 

/COS*?), A NO-NO 

/AND SAVE IT, 

/NOW TAKE THE SINE OF IT, 

/TAKE THE SINE NOW, 

/DO THE DIVISION, 

/AND RETURN, 



/GIVE THE TRAP INSTRUCTION, 
/AND RETURN, 
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,665 
666 
667 

,6781 
6/1 

672 
673 
674 

,675 

,676 
677 
740 

,701 

702 
7«)3 
704 
70S 
746 
747 
710 
7X1 

712 
713 
7U 

715 
716 
717 
7 212 
721 

,722 
723 
724 
725 
726 
727 

730 
731 

732 
733 
734 
735 

736 
737 
740 
741 
7^2 
743 
7 44 

745 

746 
747 
750 
751 
752 

753 
754 

7 55 
756 
757 

760 
761 
762 



I: JECT 



COS, 



f ADD 



FPPPI2 

SIN 

COS 



/ADO IN PI OVER 2, 
/AND TAKE THE SIN, 
/RETURN NOW, 



JFREF ATAN2 
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i JECT 



i TAN2 TAKES TWO ARGUMENTS « SECOND ARGUMENT DETERMINES TH 



1763 
X7oa 
;765 

t/07 

1771 

17/2 
1773 

\77A 
1775 
1776 
1777 

2001 
2002 
2003 
2004 
2005 
2006 
2007 
2010 
2fi5 i 1 
2012 
2013 
2*1* 
2215 
2*16 
2017 

2020 
2021 
2^22 
2tf23 
2tf 24 
21525 

2*526 
202; 

2030 
2041 
2042 
2033 
2034 
2035 

2036 
2037 

20 4 0 
2041 
204£ 
2043 
2044 
2045 

2046 
20 4; 
2050 
20 51 

2tf 52 
20 5o 
205« 
2056 
20D6 

205; 
2000 



/ 
/ 
/ 

ATAKJ2, 



FLO A 
JA 

F ST A 

FLDA 
F ST A 
FID A 
JSA 
F ST A 
FLOA 
JGE 
FLO A 

jge 

FAQU 
J A 



T*N2A, fSUP 
JA 



MCRTP7 

MCRTP7 

MCRTP1 

MCRTP8 

MCRTP7 

AT AN 

MC8TP7 

MCRTP8 

AT AN2" 1 

MCRTP7 

ATAN2A 

FPPPI 

ATAN2 

FPPPI 
ATAN2 



/COMES WERE IF SIGN IS OK. 
/ENTRY, 

/SAVE FOR A SECOND, 

/RECALL. THE QUADRANT, 

/AND MOVE IT TO A SAVE PLACE, 

/RECALL THE TAN, 

/TAKE THE ARC-TANGENT OF IT, 

/SAVE IT AWAY, 

/RECALL THE QUADRANT, 

/IF POSITIVE SIGN IS OK, 

/RECALL ARGUMENT, 

/IF POSITIVE DO FURTHER FUDGE 

/OTHERWISE ADD PI. 

/AND RETURN 

/THIRD QUADRANT, SUBTRACT PI. 
/AND RETURN, 



* 

I fhef 



AMQD 



MOD 
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i jec r 



2061 

24)63 
2064 
2065 
2066 
2067 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2110 
21U 
2112 
2113 
2U4 

2115 
2116 
2U7 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2130 
2131 
2132 
2133 
2134 
2136 
2l3e 
2137 
2140 
2141 

2142 
2143 
2144 
2145 
2146 
2147 
2150 
2151 
2152 
2153 
2154 
2155 
2156 



AMOOCX,Y)*X-lNTtX/Y)*Y 



MOD, ja 

F ST A 

FD1V 

JAL 

AIN 

FMUt 
F MEG 
F ADD 
JA 



MOQER, TRAP 7 
J A 



$ 

IFkEF 



S I 



HCRTP8 
MCRTP1 
A M 0 D E R 
0 

MCRTPl 

MCRTPB 
AMOD 



11 

AMOD 



SIGN 



/ENTRY 

/SAVE IN A TEMPORARY ,i 

/DIVIDE BY Y 

/TOO BIG, 

/FIX IT UP NOW, 

/MUUITPLY IT, 
/NEGATE IT, 
/AND ADD IN X, 
/AND RETURN , 



/GIVE THERROR, 
/AND RETURN, 
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EJECT 



SIGN RETURNS -1,0, +1 DEPENDING ON WHETHER 
INPUT ARGUMENT IS «0, 10, >0 



.2157 
2 1 

2102 

21&3 
2164 
2165 
2166 
2167 

217* 

21/1 
21/2 
21/j 
21/4 
21/5 
21/6 
2177 
22d0 
22tf 1 
2202 
2243 
2244 
2245 
2246 

22 j; 

22lfe 
2211 
2212 
2213 
2214 

2215 
2216 
2217 
222(9 

2221 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
224/ 
2251? 
2251 

2232 
2253 
2254 



/ 
/ 
/ 

SIGN, 



RWF 



FID A 


FPPONE 


JA 




JEQ 


SIGN 




SIGN-^2 


F ID a 


• +4 


J A 


SIGN 


1 












$ 




IFREF 


CHIP 


EJECT 




C H 


L F 




M W 



/GREATER THEN ZERO, 
/ENTRY AND RETURN, 
/IF ZERO RETURN, 
/IF POSTIVE GIVE A *l, 
/ G I E THE MINUS 1, 
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EJECT 



J A 

FLDA 
F ST A 
JSA 



CRLFPT 
MCRTP8 
PUISTK 



2255 JA CRUF 

2256 / 
2lS7 / 

2360 2 

2261 215 

2262 CRLFP"!, 212 

2263 JA CRLFPT-2 

2264 / 

2265 / 

2266 / 

2267 / 

22'0 $ 

0000 CHAIN "FPPUB23 w l 

0001 / 

0002 / 



EJECT 



THIS 13 THE SECOND PART OF THF PPP FUNCTION LIBRARY 



14014 

idle IS 
0016 
0017 
002&J 
£021 
0022 
0023 

0024 

0025 
0026 
0027 

004® 
0031 
0032 

0033 
0034 
0035 
0036 
0037 
0040 
0041 

0042 
0043 

0044 

0045 
0046 
0047 
0050 
0051 

0032 

0053 

0054 

0055 
0036 
0057 
0060 
0061 
0062 
0053 

0064 
dtf65 

0066 
0067 
0070 
0071 
0072 
0073 

00>4 
0075 
0076 
00/7 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0110 



EJECT 

IFRfcF GETNUM 



EJECT 



U M 
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THIS ROUTINE WILL CONVERT A 
STRING OF ASCII CHARACTERS PACKED 
ONE PER WORD TO A FPP NUMBER. 



THIS ROUTINE WILL CALL A ROUTINE CALLED "GETC" TO GET IS 



GFTNUM, JA 

FCLA 
F ST A 
F ST A 
ATX 
ATX 
JSA 



MCRTP1 
MCRTP3 

0 
1 

GE T COL 



/ENTRY AND RETURN POINT. 
/CLEAR F AC 

/ZERO OUT ACCUMULATED NUMBER, 
/ZERO OUT NUMBER OF DIGITS OFTER 
/CLEAR OUT DIGIT TOTAL 
/SET TO ACCEPT SIGN (♦ OR "5 
/ASSEMBLE A NUMBER NOW, 



4111 




C 1 n a 




/be. 1 Trie. BAU 1 C.K, 


4112 




F S U B 


GETCOT 


/IS IT A PERIOQ. 


«H J 




1 k: C 


f* f? T k 1 T 


/kin kifi r»PrT»4Al p ft t w T rucri/ PflD 


X < 1 A 
*fl 1 1 « 




A T V 

ATX 


m 
0 


/pLCf tuAi C3r\TklT SET flTCTT TflTAI 

/ b t L 1 " A L r 0 I N 1 • 5t 1 U I b 1 1 1 U 1 A l. 


J 1 1 £ 




F L D A 




/ K t i> t T ALtU"UwATC.U SU" r U3lT Ivt, 


w 1 1 c 




F MUt m 


u r Q T Q 1 

M G * T r 1 


j Q W Mill TTDI \/ L) \J C T f k| 1 r a T l 

/BY nUuTl^t' BT SlbN 4t»A iN, 


i/* I 1 7 
Oil/ 




1 C A 

J 5 A 


l» t T C OL, 


/ALuULATt IN 1 Ht NtH I O'UllNb. 


Jt 4 -2 i> 

w 1 e V 1 




VTA 

X T A 


< 


/ K t t A L t I U I A <N U n D t K U r V I b 1 1 » t 


OKI 




c e t a 

roil 


r 1 1* rl I r 0 


/ Ai, h e a v ; L Ayiy enp A itl U T 1 V 


J l 3i 


/ 








A \ 2 \ 
WUv 


f* fi T k> P T 
b C 1 ™ v 1 1 


r U D A 


~ L K 1 r I 








B C T A 


PCKTr*! 


>TUP CVDnklBklT jJTII r*Oft"AAA TT 

/The CXrUNcNT "ALL CKCA" J|, 


J 1 J AS. 




r LD « 


r C r< Iro 


/BC r All TUC B tn rWABArTPfl 


4126 




F SUB 


r c t 1* t c 
utTCtt 


/Ct C T ET T T O A kl II P II 


j i o« 




i Li e 


1*" C T C V 1 

6 1 T t * 1 


y 1, A ki II CT II ki E V Qfl AiC ai T 

/Ng J AN 'fc't NU t ArQNtN 1 1 


rjl < In 

3 I 0 0 




P $ T A 


MCk TP i 


i *J F D ft mi if i 1^ A 1 1 U 1 1 i A T T kl 1^ QCftTfTCQ 

/ZfeWg OUT ACCUMULATING RtGISTEH, 


4 13 1 




ATX 


1 


/iA,n ai eca Dcect ThJiC eTi^ki a frCDf 
/AKU ALSr KtStr Inc. SIbN ACCtrT 


V 1 0 6 




t e a 
J » A 


r l" ? r n 1 


1 f %f fur; CVDnklCklT 

/bfl I flt tXrQNtNT, 


4 1 3 3 




r ID a 


l r □ t O 4 

n C K T P 1 


/ a t r a 1 1 c v d n ai c ai t 
/KtLALL tXPDNfcNT, 


4134 


6E < N EX > 


F 5 U B 


HCHTP3 


/SUBTRACT Orr TMt DIGITS ArTEK P 


d 1 o 0 


J EQ 


1* e: f r\ C ft 

5 1 T DfcQ 


itvBflkitAiTC D 11 AkifP AI 1 TC UIC7I 1 

/tX"0NtNT5 BALANbt, ALL io «cLL, 


4136 




JGT 


GETDGT 


/ ft n C A ▼ CI' fi f nftil :^A Ai 1 1 1 T T HI \/ 

/bPr. ATtW THcN a, "lULITPLY, 


J 1 17 


/ 








•J 1 AM 




ATX 


* 
l 


/ A, L f. A T T 1/ P ECT IIP A* 1*1 1 1 kl T 

/NtbATlvt* at! Ur L U U N T • 


4141 




FID A 


K C K T r y 


i BC ^ A 1 1 ki 1 1 U Q L7 D 

/wfc CALL NUMBER « 


■G I 4 <e 




F D I V 


r" c T r* i r 'A 

be T C I 4 


/DIVIDE CT XO, 


i> i J i 
01 40 




J X N 




/i A**.nD 1 1 ki t t i rknAjcr 
/LOU" UNTIL UDNtt 


o 1 4 4 




J A 


r c ? ki 1 1 u 






/ 










f « T n c ri 


6 1 n A 

r L D A 


r" L K 1 r d 


/BP T 41 1 TMt kl 1 1 M R if 


iil 1 A 7 

« 1 4 / 




1 A 

J A 


f C T kl 1 1 AA 

b t T NUM 


/AMD EXIT. 


4 1 SiP 


/ 








<0 1 3 1 


be T Ob T , 


c k< er #** 




/NtbATt NUMBEK ANO STIC^ 


4 1 52 




ATX 


1 


/IT IN THE INDEX COUNTEKf 


4 1 S3 




FLO a 


HCRTP2 


/RECALL NUMBER 


w 1 J« 




F MOL 


b t T U 1 d 


/Mill TTDI ¥ TT B4 1ft 

/rlULlIrLY IT BY lid. 


\A 1 5 <S 

V IJ J 




1 X K 

<J * rs 


«9 1 * 
v * #r > 1 * 


yi nop ljmtti nnNf?. 


.1 1 & £ 

10 i 3 0 




1 A 

J A 


r c t ki 1 1 m 
bt T NUf" 


/ T Ul IE ki D C T 1 1 D Al 


IA i *4 7 








C 1 0 It? 


f e T C v 1 


en a 

r CL A 




/ C A t( aV 1*1 i 1 T 7 F □ i*l 6' »' E3 n kl ff kl T 


4 1 0 1 




t A 

J A 


T 1 ki cr w 
bt 1 N t X 


/ A k ft □ ET C kl T C D 


v 1 Q C 










ill «,! 










tal64 


/ 








4155 


/ 








4 1 66 


/ 








4167 










.Aft 1 i-i 

4 1 7 










41/1 


t 








4 1 72 










Lit 4 if 1 










,1171 


G E T C 0 I • 


J A 


• 


/ B ft 1 1 T T kl c Tr> acCEMBI ET A 6 T D T kl I* nC 

/WDUTINt TO AoStnOLE A STRING Qr 


41/5 




J X N 


Gfc T CLr 1 1 


/TL C 1 fkl OCT U V O A C C tuTt ftSlli*! 

/Ir SIbN 5ET« BYrAJsS THIS CHUD, 






c 1 r\ a 

f LD A 


c u c n m c 
r r r ij N t 


y e t t Tut; erf ki Tfl rikiC 

/at! Trip, aibN ru unc, 


V i f / 




t'St A 

r ~ 1 w 


M r W T P 7 


f f 13 IT- 3*1)'' PiE,UJk.iSIC"*t 


42tf0 


GETCLPi 


JSA 


GETC 


/GET A CHARACTER NQW, 


2241 




F ST A 


M C P T P 8 


/SAVE AWAY, 


4242 




FSth 


GE 


/TEST AGAINST "4", 


4243 




JLT 


GETBO 


/ITS BAD, 


4244 




FSUfl 


GETCIJ) 


/TEST AGAINST " 9 " » 


4245 




J Gfe 


GETBD 


/NOPE, ITS BAD, 


4246 




ATX 


1 


/SIT THE SIGN TO SWITCH TO MQN-A 



02ti7 

v C v f 




r u U * 


It F T f 1 iTI 


/Mill TTPl V TflTAI 


019 i a 
we t w 




C iA 1 1 1 Ml 


P" UK T r 1 








* ! A 


• 

1 




iA 9 1 0 




[ inn 


tft 1 L 1<S 




<A 3 1 A 
*< 10 




t 4 n n m 


MroTO i 

fiLTr 1 


/Akin TyCKi CTPIOF u IfK 

/AND TnKN oiQKC DAUlV, 


W C 4 *» 




J * N 


ut 1 LL' » 


/fin rati/ Awn infip add pitrtt ppiii 


<p c i o 


/ 








WC 4 0 


GETBD » 


F LD A 


MCRTP8 


/GET THE BAD CnAKACTfcK. 






c * 1 1 a 


bt 1 Crl, 


jC[C TV TTC A Dl 1 1 A CTCW 

/5tt 4" ITS A rLU5> J>4bN 


AC Or? 




J tiU 


f f TD 

bfc T r 


it »c a at lie e t i*ki 
/ITo A PLUS SIGN, 






r SUB 




/CIlOTOACT O Akin If C 

/oUBTKACT 2 ANU act 






J t Q 


P C T kit 

bt T M 


i T C TTC A u T kit I 6 QTPkl 

/IF ITS A MINUS SIGN, 


,10 5 1 




r add 


r c t r c d 
bt T Cor 


/5Et Ir ITS A SPACE 


0 c c 4 




J to 


GETCLP 


/AND LOOP IF IT IS, 


,» n n m 

02«O 


/ 








iA O 5 A 


GET** # 


PLC* 


ur Qf 

MCRTP7 


jdci*ai i fur o f ki 

/RECALL THE SIGN, 


0cc7 




t bi 1 | 1 %A 

r *UL * 




/AND FUKCt IT IN, 


MO lit 




J * 


GETCOL 


/AND THEN EXIT« 


vc Jl 


/ 








0242 


GET'S 


F SUB 


FPPONE 


/MINUS ONE FOR THE SIGN WORD, 






JA 


,♦4 


/SKIP PAST THE CRAp, 




/ 










GFTP » 


F 1.0 A 




/PLU5 ONE, 






J 1 N 


GETXX i 1 


/IF X IS ALREADY SET# EXIT, 


il ft 2 w 

0237 




ATX 


1 


/ELSE RESET SWITCH, 


0240 




J A 


GETCLP-1 


/AND LOOP, 


10 * * 1 










*P I. •» fc 










0 c •* 0 










4244 


7 








uiO il k 
OC MO 










v w *l D 










0<4/ 


7 








0230 










0231 


r c T (■ tr ti 
b t T C 0 VT i 


1 0 






0232 










0253 




0 






0234 


G£TC10» 


ifl B 






0295 


GETCtE* 


10 






0256 




3 W 5 P> 






0207 




0 






0*100 


GETCOT » 


1 H 






0261 




211560 










0 








fl C * f O 1 

b fe T W " L f 








iA 0 _ x 




O ('5 1 rA 






(0 t 0 0 




0 






10*00 


r c ▼ ^ c d 


4 '4 
I O | 






0267 


/ 








10 fc / IP 


/ 








d&7 1 


/ 








02^2 


/ 








0273 


/ 








(AO T A 

0 c / 4 




$ 










T 1 tifP 
X t ^ r. r 


p r n w 

~ L U IN 




0276 


/ 








0277 


/ 








0300 


/ 








0301 


7 








0302 


/ 


P C 0 


N 




0303 


/ 


» ■» • 


«• 




0304 


7 









0305 

43d& 
4307 
1 fip 

4312 

0314 
4315 

0316 
0317 

0321 
0322 
0323 
0324 

4325 
0326 
432; 
433k! 
0331 
4332 
4333 
03v)4 
4335 
4336 

033; 

434® 
0341 

4342 
4343 
0344 
0345 
034& 
0347 
035e 
0351 
0352 
0353 
0354 
0355 
035fc 
0357 
036(? 
0361 
436g 
0363 
03b4 
0365 

0366 
0367 
437(? 
03/1 
03/2 
0373 
0374 
03/5 
0376 

43/; 

440ft 
4*41 
0442 



CON 
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EJECT 



JA 

FSTA 
FLOA 

JSA 

FLO* 
JLT 
FLOA 

FSUri 
FSUB 
JLT 
JSA 
FLD* 
JSA 
F LD A 
JSA 
FLOA 
FSUH 
F ST A 
FLOA 
JSA 
JSA 
FLOA 
JSA 
JSA 
JA 

/ 
/ 
/ 
/ 

PMlMiS, FLOA 
FSUH 



MCRTP8 
PTOTAL 
MCPUTC 
M C R T P 8 

PMINUS 

PTOTAL 

PMCB 
PAFTER 
PST ARS 

MCLBL* 
KCRTP8 
MCCP^S 
MCRTP8 
HCOIGC 
MCRTP7 
PPPONE 
MCRTP8 
FPPONE 
MCPRTO 
MCPDOT 
PAFTER 
MCPRTU 
MCPEXP 
PCON 



P TOTAL 
F PPONE 



/ENTRY POINT FOR P CONVERSION, 
/SAVE IT AWAY, 

/RECALL TOTAL *NUMBER OF SPACES. 

/AND PUT IN HIS BUFFER 

/GET MIS NUMBER AGAIN, 

/wHERE TO GO IF MINUS TO FIGURE 

/RECALL THE TOTAL, 

/SUBTRACT FOR EXPONENT , DECMIL PO 

/REMOVE EXTRA GARBAGE AFTER POIN 

/IF IT WON T FJT, GIVE STARS, 

/IF EXTRA ROOM GIVE SPACES, 

/GET THE NUMBER AGAIN, 

/GIVE MINUS SIGN IF NECESSARY, 

/RECALL NUMBER 

/CONVERT IT, 

/GET THE EXPONENT 

/SUBTRACT ONE FROM IT, 

/AND SAVE FOR MCPEXP TO USE . 

/PRINT ONE DIGIT NOW , 

/GIVE THE DECIMAL POINT. 

/GET NUMBER OF DIGITS AFTER 

/AND PRINT THEM, 

/FINALLY PRINT THE EXPONENT, 

/AND RETURN, 



/IF MINUS SUBTRACT ONE FOR THE S 



040o 




J A 


PB ACK 


/AND GO IN AND FIGURE IT OUT. 


0404 


/ 








04yJ3 










0406 


/ 








0407 


/ 








• 4 * <f 










04 11 










0*12 










04,3 


7 








0414 


7 








0415 


PT YFfc , 


J A 


■ 


/SETS UP THE CONVERSION PROCESS, 


0416 




P ST A 


MCRTP6 


7SAVE FOR A SECOND, 


0417 




F "LA 




7CLtAR TOTALS AND AFTER, 


0429 




f ST A 


PTOTAL 




0421 




F3T A 


P AFTER 




0422 




FwDA 


MCRTP1 


/RECALL TRAILING PLACES, 


0423 




JSA 


PTLIT 


7IS IT OK? 


(A A 1 A 




F ST A 


RAFTER 


/YfcP, STORE AWAY, 


0*25 




F UD A 


MCRTP6 


/RECALL TOTAL"? 


0426 




JSA 


PTLIT 


/IS IT OK? 






F ST A 


PTOTAL 


7 Y I P , 


0430 




J A 


PT YPE 


/RETURN NOW, 


0431 


/ 








0*0 2 


7 








04,} 3 


/ 








0404 


/ 








0435 


PTLIT , 


J A 


• 


/ARGUMENT CHECKER » 


©400 




Ji.T 


pt ype 


/IF MINUS EXIT, 


*J4%>/ 




J AL 


PT YPE 


/IF TOO BIG EXIT, 


(A A A fa 

|g *J 4 c 




A W K 


Z 


/ELSE FIX IT, 


SO 4 4 1 




F NOR M 




.11,1% n i a i ■ ■ « 

/AND FLOAT IT. 


0442 




JA 


PTLIT 


/RETURN NOW, 


0443 


7 








10 at 4> A 


7 








0445 


7 








0446 


r ST ARS • 


FwDA 


PTOTAL 


/GfcT THE TOTAL NUMBER PLACES 


0447 




JSA 


MCST AR 


7 AND GENERATE STARS, 


0450 




J A 


PCON 


/NOW EXIT, 


04^1 


/ 








0432 


7 








0433 


7 








0434 


7 








0435 


ptotal# 


0.0 






til A A 

0456 


P AFTER # 


0.0 






0497 


pmcs» 


8. 




/EXPON+ t +LEADING*MlSC, 


0460 


7 








0461 


' 








0462 


/ 








0463 


7 








0464 


7 








0465 


7 








0466 


7 








0467 


/ 








04/0 


/ 








04/1 










04/2 




S 






0473 




I?REF 


ET YPE 




0474 










0475 










0476 










0477 










0500 











0501 
0502 
0503 
0504 
06^5 
0506 
050/ 
0510 
0511 
0512 
0513 
0514 

0515 
0516 

0&i; 

0 520 
0521 

0522 
0525 
0524 

0525 

*52fc 
0527 
0550 
0551 

0552 
05^5 

0554 
0555 
0556 

0 5 5/ 
0540 
0541 
0542 
0543 
0544 
0545 
0546 

0547 
0550 
0551 
0552 
0555 
0554 
0559 
0556 
0557 
0560 
0561 
0562 
0563 
0564 

0565 
0566 
0567 
0570 
0571 
0572 
0573 
0574 
0575 
0676 



E T y P t 



eeoN, 



EBAC* , 
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EJECT 



E * 


CONVERSION ROUTINE, 




JA 




✓CONVERSION ENTRY, AC-NUMBER. B A 


F ST A 


MCRTPS 


/SAVE NUMBER AWAY, 


FLO A 


ETOTAL 


/GET TOTAL NUMBER OF SPACES FOR 


JSA 


MCPUTC 


/PUT IT IN MIS BUFFER, 


FLDA 


MCRTP8 


/RECALL HIS NUMBER, 


JUT 


EMINUS 


/ITS MINUS, FIGURE FOR SIGN, 


FLDA 


ETOTAL 


/RECALL TOTAL NUMBER OF SPACES, 


FSUB 


EMC7 


/DEDUCT FOR SP ACES E , ETC , 


FSU8 


E AFTER 


/SUBTRACT PRECISION DIGITS, 


JLT 


ESTARS 


/wONT FIT, GIVE STARS , 


JSA 


MCLBLK 


/PRODUCE NECESSARY NUMBER F BL AN 


FIDA 


MCRTP6 


/RECALL MAGIC NUMBER 


JSA 


MCCPMS 


/GIVE MINUS SIGN IF PRESENT. 


JSA 


WCPOOT 


/PRINT THE DECIMAL POINT, 


FLO A 


MCRTP8 


/RECALL THE MAGIC NUMBER. 


JSA 


KCDIGC 


/CONVERT IT, BABY, 


FLDA 


MCRTP7 


/GET THE EXPONENT, 


F ST A 


MCRTP8 


/SAVE FOR A SECOND, 


FLO A 


EAFTER 


/GET NUMBER OF PRECISION BITS, 


JSA 


MCPRTD 


/PRINT DIGITS. 


JSA 


MCPEXP 


/PRINT EXPONENT. 


J A 


ECON 


/AND RETURN NOW, 



ETOTAL, 0,0 



H *i 7 7 


e i e f t L . 
R * r 1 f 


01 Pi 






lA ft 01 


E M fc f f 


7 






lit £. iil 4 

00(0 1 


/ 










/ 








100*0 3 


/ 








,A ft ,A 4 

*) u io m 


C Ai T k.1 1 I C 


P LU A 


v f n t a i 


/ii i nil) nwP 01 ATP PriCJ MTKltKS * T ft kl 


(A ti ii K 






"rrONt 


/ 1 nur urr» 


i* JE jjl 

100100 




J A 


tB ACK 


/GO SACK INTO IT#oUBdt, 


06*07 


/ 








06 iia 


/ 










/ 










/ 










ETYPE » 


JA 


e 


j Ami it • iir 4r erf i i n *AkiWff Di f Akl 

/ROUTINE TO SET UP CONVERSION, 


0614 




FSTA 


MCRTP6 


, A i U IT • i i r w fit <■ at Al 1 1 Ai n a" n <•> k. 1 A V C u Q 

/SAVE THE TOTAL NUMBER IN A TEMP 


0616 




FCL A 




/NO" CLEAR OUT OUTH QlblT L U U N T 3 


0616 




FSTA 


ETQT AL 




0617 




FSTA 


feAFTER 




0620 




FLO * 


MCPTPi 


/GET THE NUMBER AFTER » 


06< 1 




JS A 


ETLIT 


/CHECK IT, 


10042 




A? C T A 

r 3T A 


E AP TtH 


/trno> a a p is 

/STORE SAUK, 


10 043 




SI MA 

FLDA 


r CRT PC 


i D c ^ A I 1 f n« | i 

/RECALL TOTAL 


0624 




JS A 


ETLIT 


i ■> 1 i IT * ii » W» 

/CHECK IT, 


0625 




FSTA 


ETOTAL 


/SAVE IT* BU8SY, 


0026 




J A 


ETYPE 


< It f 1 IH Li 

/RETURN, 


CD K O ? 


/ 








0630 


/ 








0631 


/ 








0632 


ETLIT,. 


JA 


• 


/ENTRY POINT, 


0633 




ft V 

JUT 


c T u n n 

ET Y P E 


; Q t T 1 1 O kl iff iil rt T cniTTTUC 

/RETURN IF NUT rOSITIVe, 


r* A 1 A 
100*34 




J AL 


If unr 


/bctiibai TV rnn ft T ft 
/wtlURN IF TOO Dllii 


ll Ik 1 K 

10035 




ALN 


0 


/FIX IT UP, 


0636 




FNQ R M 






10637 




J A 


ETLIT 


/AND RETURN NOW, 


100 m\6 


/ 










y 
/ 








i* ft ^ O 


/ 








0649 


K $ T A R 8 # 


FLDA 


ETOTAL 


/GENERATE STARS WHEN REQUIRED,! 


0644 




J3A 


MC5T AR 


/BY CALLING THE STAR ROUTINE, 


Jt ft il ft 

W040 




t A 

J A 


C f f\ At 


1 A ki fl TUCM QIETTII0AJ 

/ANU THEN KC.TUKN, 


01 •> /l & 

iso *>o 


/ 








iA ft 4 7 


/ 








I &5{J 


/ 








0651 


/ 








0652 


/ 








»0O53 


/ 








a ft * j» 


/ 








10655 


/ 








0656 




s 






0657 




IFREF 


FCON 




0660 


/ 








0661 


/ 








0652 


/ 








.A Ik A 1 

(000 J 


/ 








0664 


/ 








10000 


/ 








0666 


/ 


P C 


0 N 




0667 


/ 


• <■ 


« <■ 




(0670 


/ 








0671 


/ 








0672 


/ 








0673 


/ 








067* 


/ 









0675 

0676 
*677 

0730 
0701 

0702 
0703 
0/04 
0/05 
0706 
0707 
0710 
07 H 
0/12 

0/13 

07*4 
0715 
07 U 
*7i/ 
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0/^0 


EJECT 




0721 


/ 




0722 


/ 




0723 


/ 




y}/24 


/ 




0725 


/ 




0/26 


/ P TYPE 


FORMAT 


0727 


/ 




0736? 


/ 




td/31 


/ 




0/32 


PCON, JA 


• 


0733 


LOX 


"1 f Z 


0734 


EST* 


MCRTP3 


0735 


JGE 


, + 4 


kJ736 


LOX 


•2,2 


0737 


JSA 


MCDIGC 


0740 


FLDA 


FTOTAL 


0741 


JSA 


MCPUTC 


0742 


FLDA 


MCRTP7 


0743 


JGE 


.+3 


0744 


FCLA 




0745 


FSTA 


MCRTP2 


0746 


X T A 


2 


0747 


F SUB 


MCRTP2 


0730 


PSUB 


FAFTER 


0751 


F ADD 


FTOTAL 


0752 


JLT 


FSTARS 


0733 


J $ A 


MCLBLK 


0754 


ADD* 


W 2 


0755 


XT A 


2 


0756 


JSA 


MCCPMS 


0757 


PLDA 


MCRTP2 


0760 


JSA 


MCPRTD 


0761 


JSA 


MCPDOT 


0762 


FLDA 


MCRTP7 


0753 


JGE 


FCONOK 


07<»4 


ATX 


2 


0765 


FLDA 


FAFTER 


0766 


FNEG 




0767 


ATX 


0 


077» 


JED 


FCON 


0771 


/ 




47/2 


PCQNLPf FLO A 


MC260 



/ENTRY , 

/SET FOR NO MINUS SIGN, 
/STASH AWAY. 
/CHECK IT NOW, 

/YEP. ACCOUT FOR THE MINUS SIGN, 

/CONVERT THE AC NOW, 

/PUT TOTAL NUMBER PLACES IN BUFF 

/GET THE EXPONENT, 
/ONLY INTERESTED IN PLACES 
/BEFORE THE DECIMAL POINT, 
/AND SAVE IT FDR A SECOND. 
/RECALL MINUS SIGN OR NOT, 
/SUBTRACT OFF PLACES BEFORE DECI 
/SUBTRACT OFF PLACES AFTER DEC IM 
/ADD IN TOTAL NUMBER OF PLACES A 
/wDNT FIT, GIVE STARS, 
/GIVE LEADING BLANKS NpW, 
/INCREMENT INDEX 2, NOW -1 OR 0 
/NOW MOVE SIGNED TO AC, 
/GIVE A MINUS SIGN IF DESIRED, 
/RECALL NUMBER OF DIGITS BEFORE 
/PRINT THEM, 

/GIVE A DECIMAL POINT NOW, 

/RECALL REAL EXPONENT, 

/WE RE DOING ALRIGHT, 

/ITS NEGATIVE. SET UP TO PRINT L 

/DONT FORGET ABOUT TOTAL AFTER, 

/ALSO SAVE THIS IN A COUNTER. 
/IF NON AFTER p EXIT. 

/PICK UP A »0« 



*s/ / 0 




JSA 


MCrUTC 


/PUT IT INTO THE. tlUrrtK, 


0774 




J'KN 


■♦4, 0* 


/CHECK WHETHER END, 


1 M *i ~f ft 

07 7 a 




J * 


FCQN 


/IT IS. 


0776 




J <Ki 


F CONLP ( 2* 


/STILL SKIPPING, 


$777 




XTA 


0 


/RECALL SPACES LEFT 


1000 








/MAKE INTO POSITITVE TYPE NUMBER 


1001 




J * 


• ♦4 


a 1 ti n t n maps 1 A 1 A 

/AVOID BAD LOAD, 


i a jj « 

1 6?02 


/ 








1000 


PCONOK , 


F iu D A 


F AFTER 


/RECALL NUMBER AFTER DECIMAL PQI 


1004 




JSA 


MCPRTD 


/PRINT THEM, 


1005 




J » 


FCQN 


/AND EXIT NOW, 


1006 


/ 








1 0k57 


/ 








1010 


/ 








1011 


/ 








1012 


FTYPEi 


J A 


• 


/SET UP ENTRY, 


1013 




F ST A 


MCRTP6 


/SAVE TOTAL POR A SECOND, 


1014 




FCL A 




/RESET BOTH TO ZERO, 


1010 




F ST A 


F Ar TER 




101b 




F ST A 


FTOTAU 




1017 




ruDA 


MCRTP1 


/RECALL THE AFTER PART, 


1020 




JSA 


FTLIT 


/TEST IT 


1021 




F ST A 


F AFTER 


/AND STORE IT AWAY 


1022 




Ft DA 


MCRTP6 


/RECALL TOTAL 


1223 




JSA 


FTLIT 




1024 




PSTA 


FTOTAL 




1025 




J A 


FT YPE 


/AND RETURN, 


1026 


/ 








1027 


/ 








1030 


/ 








1031 


KTL.IT , 


J A 


• 


/LITTLE CHECKER, 


1032 




JIT 


FT YPE 


/IF NEGATIVE EXIT, 


1033 




J AL 


FTYPE 


/IF TOO BIG# EXIT, 


1034 




ALN 


0 


/FIX IT, 


* fx "4 ft. 

1005 




FNORM 




/AND FLOAT IT, 


1036 




JA 


FTLIT 


/AND RETURN, 


1037 


/ 






1040 


/ 








1041 


/ 








1042 


FSTARS, 


FUOA 


FTOTAL 


/GIVE STARS IF NECESSARY, 


1043 




JSA 


MCSTAR 




1044 




J A 


FCON 


/AND RETURN 


1046 


* 








t fx A M. 

1046 










10*/ 










1000 


PTOTALi 








1051 


FaFTER, 


0.0 






1092 










1053 










4 r* <i > 

100* 










105b 


/ 








K&06 










1037 




3 






10 60 




J FREF 


MCDIGC 




1091 










1062 










1063 










1064 










1066 




C: 0 


N V E R S 


lONtPRQTOTYP 


1066 










1067 










10/0 











0/1 

1*73 
0/4 
0/5 
0/6 
077 
id0 

101 

102 

103 
104 

105 

106 

10; 
110 
in 

112 
113 
1U 
115 
116 
117 

120 
121 

122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 



155 
156 
157 
160 
161 
162 
103 
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EJECT 



THIS ROUTINE IS CALLED BY A JA WITH THE NUMBER IN THE FA 
TO RETReiVC ACTUAL DIGITS THE ROUTINE MCGETD IS CALLED. 



us 


MCDIGC, J A 


• 


/RETURN GOES HERE, 


136 


JGE 


«*3 


/TAKE THE ABSOLUTE VALUE BY NEGA 


137 


FNgG 




/F AC IF ITS NEGATIVE, 


140 


FSTA 


MCRTP6 


/STORE AWAY IN MY WORKING REGIST 


141 


FCLA 




/CLEAR THE AC SO WE CAN RESET TH 


142 


F ST A 


MCRTP7 


/ZAP OUT THE EXPONENT, 


143 


LO* 


M2, 1 


/SET UP INDEX COUNT FOR THE NON- 


144 


I s LO A 


MCRTP6 


/RE GET THE MAGIC NUMBER OF THE C 


145 


JAL 


MCTOOB 


/ITS TOO BIG TO FIX, JUST DO BRUT 


146 


ALN 


0 


/FIX THE AC, 

/THEN FLOAT IT AGAIN. 


147 


F NOR M 




150 


fsub 


MCRTP6 


/IS IT AN EXACT INTEGER, 


151 


JEO 


MCEXAC 


/YES. DO THE EXACT CONVERSION, 


152 


FLDA 


MCRTP6 


/REGET HIS NUMBER, 


153 


fsub 


MCI 


/IS IT GREATER THEN 1,? 


154 


JGE 


MCTOOB 


/YEP. GOT TO WORK OUR WAY DOWN 



165 
166 



EJECT 



THIS ROUTINE CONVERTS THE NUMBER IF ITS LESS THEN I, 



f t lit 
1*0/ 






n ft 1 r . 


R f U * T T hi F N 1 1 M 9 E R 

/ n £ W t ! frit niijMw^rvg 


U70 




1" 3(J6 


MC2TA8+36-30000 • 


1 /COMPARE AGAJ.NST GIVEN RXrUNtN 


1171 




JGE 


MCGK 1 0 


if ft r.BiTATCD TMFM PVPflKlPWT DDKIT 


1178 




PUD A 


i Tili^i.HllAllfl 

PClTAB + o8»i>0il!00» 


i /iiphitc TUP kil IMAFP yr 0 c y 0 D k T 
1 / U r U A r t IMC INUnBt" W C n C «U"ft 1 


1173 




lit Mill U 

P "UUM 


M r D T u n 

P L K [rO 


/ay n n t kin a mi ii t t n mpmhRv. 


< Mi 




if i n a 
P UP A 


P t K T r / 


> a kj n 1 1 P n A T F THF P'KPDWFNT A L ^ fl 


i I 1 ft 
1 * f 9 




lif 5 1 1 0 


HbO l ftD'l'OO"«JI0i0<0KJf 


1 /SURTPACT OFF CORRECT NUMBFR 


11/6 




ill IT 1 

r 9 T A 


n t " 1 r / 


/Akin * T n D P A y A V 
/ *NU 9TQKC AWftT» 


1177 


u * r D t n 
MC&RTO f 


J XN 


u i" a i no i _k. 
MClUQr # !♦ 


j a ki n i n ri d t n tbv m f « t pvPi°ikifi>jt f 


i a ran 




J A 


MCDUN 


>uc tut nnkif kiny fi f am hp a rtt 
/"E AHft D0N6 NUW e UUCAN Ur * P I 1 












4 r> fA *l 

1*02 










\ C V 0 










1204 










1200 




















1207 




THIS ROUTINE PROCESSES A 


NUMBER IF ITS 


1210 




GREATER 


THEN 1, 




1211 










1212 










1213 


M C T 0 0 6 a 


FUDA 


MCRTP6 




1214 




FSUB 


MC1TAB+3S»30000, 


a jtiit t r a t m e t t v d ft ki it k.i T 
1 /Tc5l AGA1N9I tXruNtNl i 


1219 




JIT 


MCUESO 


ifTG i cgc tucki FyprikiFkiT en AwnT 


1216 




FUDA 


MCRTP6 


J kl fi Ui C T \/ 1 1 D TUlf ki 1 1 M D C D 

/NOW rJLX wr rMti WUPinKK, 

1 /BY DIVIDING BY TMft CUKKtCT T* 


1217 




FDIV 


MClTAB+36»30000. 


1220 




FSTA 


MCRTP6 


/ t T H D C AUiAV kiriul 

/9TUKt AW AT NUWd 


19 9 4 
1 *< 1 




FUDA 


MC3TAB+36-30000, 


1 /AL^Q 1 1 P D A T F THE FXPONENT COLIN 


1 CSC 




FADDM 


MCRTP7 


/7AP RACK TNTO MEMORY 


1 * « 0 


M * 1 B ft 1*1 

MCUt ou t 


JXN 


MCTQQB, 1* 


/Akin | flop AROUND TTI L DUNE. 


* *«« 




FUDA 


MCRTP6 


yuiF Nftyj MUST DO ONF MOPP CORRECT 


1**5 




FOIV 


MC10 




\ 0 9 in 




FSTA 


MCRTP6 


/Akin kjnw *tTA<tH SACK 


1227 




FUDA 


FPPQNE 


/Akin ki n u f fiBocrT tuf FyPHkiFkiT 

/ ANU NUW WUWtXCUl IPIC EArUNtN 1 t 


1230 




FADDM 


MCRTP7 


/ c i°i o Tut? ltutoi n tu t nc 
/rO" THr tXTKA UiVIuti 


1241 


/ 








1232 


/ 








1233 


/ 








1234 


MC0UN# 


FUDA 


MC1PRT 


/SET UP POINTER FOR DIGIT PRODUC 


1235 




FSTA 


MCD01 




1236 




!' r LDA 


MCRTP6 


/RESET THE CONVERTED NUMBER 


i 3 1 -a 

1237 




STARTD 






1240 




A 


0 


/JAM THE UOW I* BITS INTU AN IND 


1241 




JSTARTF 




ift* • q i * i/ f .if a ft i irtrfl u Ant? 

/GET BACK INTO SUPER MODE, 


1 Ail) 




ATX 


0 


/kini. C F T THF TNn?¥ PFfiTSTFC AS A 
ifiMyw y c I inc. iiNi/iii* nulls i w 


1*43 




„?EQ 


MCDIGC 


if c tte 7Pon nnw t AriThFB FiinfiT 

/Xr 1 T 3 itKU UUN 1 OUiritH rUUwl 


1244 




FLDA 


MCFUD 


/COKKtCT WITH A PUUv»t rAUIUK, 


i nil 
1**9 




FADDM 


MCRTP6 


/Akin «TncF RACK 


19 4ft 




ilA 


MCDIGC 


/AkiO fvtt Fno MOUf 
/anu cai i run fiuii 


1 Ait 

1 *«»7 


/ 








1*00 




MCiPRTu 


• •1 


/bcuCubcd ai* T Q A TUBPff ynfin n 1 1 A 
/Rr M t"BtK AC 13 A TMRtl* "DKD UUA 


1251 




*!A 


MCRESt 




1*3* 










1 9 ft % 
* * *0 










t O ft A 










120? 










Use 




i:;ject 






1257 










1260 










1261 










1262 










1263 




THIS ROUTINE CONVERTS NUMBERS IF THEY ARE AN EXACT INTEG 


1264 




JT MAY 


BE HEMOVEO AT ANY 


TIME, 



255 


/ 








256 


/ 








207 




flda 


HC2PHT 


/RESET THE SWITCH FOR THE EXACT 


270 




P ST A 


M C P 0 1 


/AND STORE AWAY. 


27 \ 




FLDA 


MCRTP6 


/RECALL THE NUM8ER , 


272 




J EQ 


MCEXEX 


/IF ZERO EXIT IMMEDIATELY, 


2/3 




LOX 


• 10, I 


/SET PQK A COUNT OP 7 (MOST NUMB 


27 A 


MCtLOP, 


FLDA 


HCRTP6 


/GET THE NUMBER AGAIN. 


2/5 




FOIV 


MC4TAB + 30-30000, 1 /TEST THE RANGES. 


276 




ALN 


0 


/FIX IT. 


277 








/THEN NORMALIZE IT, 


34® 




JNf 


MCPOUN 


/ITS NON-ZERO. WE VE GOT THE COR 


341 




JXN 


MT El OP . 1 * 


/KFEP LOOKING FORCTHIS LOOP CAN 


342 


/ 








343 


MCFOUN , 


X T A 


1 


/GfcT THE INDEX IN THE AC, 


344 




FNEG 




/PLAY WITH IT. 


345 




PSUB 


FPPONE 


/ADD IN A FUDGE FACTOR, 


34b 




F ST A 


MCRTP7 


/AND SAVE IT AS OUR EXPONENT, 


347 




JA 


MCDIGC 


/AND EXIT FROM THS ROUTINE, 


31^ 


/ 








311 




















313 


f 








3U 


/ 








315 




MC2PRT* 


, » 1 


/REMEMBER THRE WORD ARITHMETIC, 


3ie 


/ 








317 




J A 


MCRES2 


/SECOND CONVERTER, 


32t* 


/ 








321 
322 


/ 








323 


/ 
/ 








324 




EJECT 






325 


/ 








325 


/ 








327 


/ 










/ 






GETS A DIGIT AND MAKES IT A NUMBER 


331 


/ 


THIS WQUTINE ACTUALLY 


3J2 


/ 








333 


/ 








334 


/ 








335 


Kf &tT4, 


F ADD 


MC2P4 


/EXIT IS TO MERE # 80 IT FALLS TH 


336 


/ 








337 


MC6ETD, 


J A 


• 


/ENTRY, 


3 4* 


/ 








341 




MCDnts. 


-1 


/THIS CORRECTS FOR THE THREE WOR 


342 




J A 


• 


/THIS INSTRUCTION IS OVERLAYED, 


343 


/ 








344 


/ 








346 


/ 








346 


/ 








34; 


/ 








350 


MCRES1 , 


FLDA 


MCWTP6 


/GET MY NUMBER, 


301 




FMUL 


MClH 


/BOP UP BY 10 TO GET NEXT DECIMA 


352 




FST A 


MCKTP6 


/AND STORE IT AWAY NOW, 


353 




ALN 


0 


/FIX THf AC NOW. 


354 




F NCRM 




/AND LEAVE IT NORMALIZED, 


355 




FNFG 




/NEGATE THE AC, 


356 




FAD DM 


MCRTP6 


/THEN UPDATE THE NUMBER, 


357 




FN£G 




/AND FINALLY RESTORE IT TO ITS P 


3&V? 




J A 


MCGET4 


/AND 0ETUPN WITH IT I N THE AC. 


361 


/ 








362 


/ 









* 3* t> o 










1364 


7 








1365 


7 








1366 


/ 








1367 


7 








1370 


/ 








13/1 


7 








13/2 


HCRES2, 


FLD* 


MCRTP7 


/GET THE EXPONENT. 






JEQ 


MCGET4 


/IF ITS 0 RETURN NOW, 


1374 




FSUB 


MCI 


/SUBTRACT ONE PROM IT. 


1375 




FSTA 


MCRTP7 


7 AND SAVE FOR NEXT TIME AROUND » 


1376 




* IDA 


MCRTP6 


/RECALL MY NUMBER, 


1377 




PDIV 


MC4TAB*25*30000, 


1+ /CHOP DOWN another notch. 


1440 




ATX 


0 


/SAVE FOR a second. 


14 01 




>;ta 


0 


/AND RECALL IT INTEGERIZED, 


1442 




FNEG 




/AND REMOVE IT FROM MCMYNU, 


14«93 




FMUL 


MC4TAB+25»30000, 


1 /BY MULTIPLYING IT BY TO CORRE 


1404 




F A D D M 


MCRTP6 


/SO THAT THE CHOPPING PROCESS CO 


1405 




)!TA 


0 


/FINALLY RECALL THE CORRECT DIGI 


1406 




J A 


MCGET4 


/AND RETURN 


i A lit 1 

1 4107 










1410 


7 








1411 










1412 


7 








1410 










1414 


7 








1415 




EJECT 






1416 


7 








1417 


7 








1420 


' 








1421 


7 








1422 


7 








1423 










1424 


7 


THIS ROUTINE INSERTS ONI 


CHARACTER INTO THE BUFFER (AS r 


1425 


7 








1426 


7 








1427 


7 








1430 




;iA 




/STANDARD CALL, 


1431 




FSTA 


MCRTP5 


/STORE AC FOR A 8EC0N0, 


1432 




FLDA I 


MCRTPB 


/GET THREE CHARACTERS NOW. 


1433 




FSTA 


MCBLK 


/STORE IN THE MIDDLE OF A LITTLE 


1434 




FLO A 


MCRTP5 


/RECALL ARGUMENT 


1435 




A UN 


0 


/FIX IT, 


1436 




FSTA 


MCBLK-2 


/PLACE IT RIGHT AHEAD OF PREVIOU 


14 37 




FLDA 


MCBLK 


/SO ONE CHARACTER OVERLAPS , 


1440 




FSTA I 


MCRTPB 


/FINALLY STORE BACK THREE CHARAC 


1441 




8TARTD 




/NOW WE MUST UPDATE THE POINTER, 


1442 




FLDA 


MCMAGIC 


/ADD IN THE MAGIC NUMBER, 


1443 




FADOM 


MCRTPB 


/UPDATE POINTER 


1444 




STARTF 




/RETURN TO SUPER MODE, 


1445 




J A 


MCPUTC 


/AND EXIT, 


14 46 


7 








14 47 


7 








1450 




t 




/FIVE WORD BLOCK FOR CHACTER SCH 


1431 




i 






1432 


MCBLK, 


t 






1433 




0 






1434 










1435 


7 








1456 


7 








1437 


y 








1460 


7 









1452 

1463 
i 405 

Uoe 

1407 

i4;» 

14/! 

14/g 
14/3 
14/4 
i 4 7 5 
1476 
1477 

ibde 
isoi 

1542 
I5d3 
1 5^14 
1545 
1546 
1547 
I 5 i fie 

l5u 
1512 
1513 
1514 
i 5 I & 

1516 
1 5 1 7 
152tf 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1530 

1531 
1532 
1533 
1534 

1545 
1536 
1537 
1540 
1541 
1542 

1543 
1544 
1546 
1546 
1547 
1550 
1551 
1552 

1553 
1554 
1555 
1556 



EJECT 



*CSTAR # JA 
JLE 
F ME G 
ATX 

PCSICP, F U. D A 
JSA 
JXN 
J A 



MCLBL«» JA 
JLE 
FNEP 
ATX 
FLDA 
JSA 
JXN 
J A 



MCPtXP, J A 

FLO* 

JSA 

FID A 

JSA 

FLDA 

JGE 

JSA 

FNEG 
J A 

McGPLS, FLO A 
JSA 
FLO A 

MCCPL2i F ADD 
JSA 
JSA 
FLO A 



*CSTAR 
1 

*C252 
HCPUTC 

hCSLOP, 1* 
M C ST Aft 



HCLBL* 

e 

KC2463 
MCPUTC 
KCBBLP#0* 
MCLBLK 



NCLBLK 

MC305 

KCPUTC 

H C R T P 8 

*CGPLS 

MCCPMS 

NCRTP8 

*CCPL2 

MC253 

HCPUTC 

HCRTP8 

MC4F 

MCOIGC 

MCGETO 

MC3 



/THIS ROUTINE PRINTS " N" PUTS AS 
/ ft E T u P N IF ZERO OR NEGATIVE, 

/PLACE NEGATED COUNT INTO AN IND 
/ A STAR. 
/OUT IT GOES, 

/RETURN KOw, 



/THIS ROUTINE PRINTS LEADING BL A 

/IF ZERO RETURN NOW, 

/ELSE NEGATE THE AC, 

/AND PLACE NUMBER OF BLANKS IN I 

/GET A BLANK IN THE AC, 

/AND STORE IT AWAY, 

/LOOP UMTL DONE, 

/Then return. 



/THIS ROUTINE PRINTS THE E XPONEN 

/FIRST PRINT ONE SPACE, 

/BY CALLING ONE OF OUR ROUTINES, 

/ThEN PRINT THE E, 

/BY CALLING A LOW LEVEL ROUTINE, 

/RECALL THE EXPONENT NOW, 

/GIVE A PLUS SIGN 

/GIVE A MINUS SIGN, 



/BYPASS PLUS SIGN, 

/THE PLUS SIGN, 

/OUTPUT IT NQw, 

/RECALL THE EXPONENT NOW, 

/ADD IN 1000 TO FUDGE UP THE EXP 

/CONVERT IT, 

/IGNORE THE 1000 DIGIT, 

/NOw PRINT THE LAST THREE DTGITS 



it ft n 

537 




IK* 

J 5 A 






/By r a 1 i TWfl nii(9 1 TTTI F ROUTTNE 


560 




JA 


u n r u n 

MCPEXP 




/AND NOW RETURN TO THt C A L L E R • 


561 

A A 

902 


/ 
/ 










$63 


/ 










564 


/ 










565 


HcPDOT » 


J A 


• 




/ENTRY , 


566 




F IDA 


MC256 




/GET THE DOT, 


567 




JSA 


MCPUTC 




/AND PRINT IT 


570 




J A 


MCPDQT 




/AND RETURN NO*. 


571 


/ 










572 


/ 










573 


/ 










5/4 


/ 










575 




JA 






/THIS ROUTINE CONDITIONALLY r k I N 


576 




JGE 


ii a • n >i t 

MCCPMS 




/IF NOT NEGATIVE RETURN 


577 




*LD A 


MC255 




/ELSE PRINT THE MINUS SIGN, 


600 




JSA 


MCPUTC 




/AND PRINT IT, 


601 




J A 


MCCPMS 




/AND RETURN NOW, 


60S 


/ 










603 


/ 










604 


/ 










605 


/ 










606 


/ 










607 


MCPRTD, 


JA 


t 




/THIS ROUTINE CONVERTS XXX NIJMBE 


610 




f NEG 






/NEGATE THE NUMBER FOR THE INDEX 


611 




ITX 


2 




/SAVE IN AN INDEX, 


b 1 2 




JGE 






J T AT kin Dl A f AT C TUFkl AT V T T 

/Ir NQ r|»*ltO 1 ntN CAlli 


613 


MCPRTL i 


JSA 


MCGETD 




i(>f ♦ a n t r t t aj n ui 
/Gt i A U 1 S I T NUW, 


614 




JSA 


MCPUTC 




j ftn f kit * » 

/PRINT IT, 


615 




JXN 


MCPRTLi 


2* 


/LOOP UNTIL ALL DONE, 


616 




J A 


MCPRTO 




/THEN RETURN NOW, 


617 












620 


/ 










621 


/ 










622 


/ 










623 












624 












625 


/ 










626 


/ 










627 


' 










630 


/ 










631 


/ 










632 




EJECT 








633 


/ 










634 


/ 










635 


' 










636 


/ 










637 


/ 










640 


' 










641 


/ 










642 


/ 










643 


/ 


TABLES 


FOR THE 


NUMERIC 


CONVERSIONS, 


644 












ft A M. 












646 












647 












690 


MClTAB. 


3245 








651 




3430 








652 




6320 






/1.E512 THE FPP ASSEMBLER CAN T 


653 












654 




a 523 









6 3 5 2 32 3 

656 756b 

657 / 

600 eas? 

b&i 2235 
b02 6444 

663 / 

664 0325 
605 3023 

666 602tf 

667 / 

6/6} 1.E32 
6 7 1 1 . E 1 6 

67* 1.E8 
673 I.E4 

6 7 4 I • fe 2 
675 K C 1 B , 1 . E 1 
67b / 

677 / 

7^0 HC2TAR, 4534 

701 2202 
7*)2 2367 

703 / 

704 6256 

705 3001 
70b 4242 
707 / 

710 7127 

711 3356 

712 4843 

713 / 

714 7454 

715 2503 
71b 7765 
717 / 

720 7626 

721 3175 
7*2 4217 

7 23 / 

724 7713 

725 3464 

726 5312 

727 / 

730 7746 

731 2536 

732 3074 

733 / 

734 7763 

735 3215 

736 5614 
7 37 / 

74fc l.E-2 
741 

742 / 

743 512, 

744 256, 
7 45 128, 
74b 64, 
747 32, 

750 16, 

751 8, 

752 4, 



/NOR THIS ONE EITHER. 

/1.E128 NOT YET, SUT WE RE GETTI 

/ITS ALRIGHT NOW t 

/ I.E. 512 
/ 1 .E-256 
/ l.E-128 
/ 1,E"64 
/ I.E. 32 
/ I.E. 16 
/ I.E. 8 
/ I.E. 4 



1753 
t/54 
1755 
1756 

1737 
1760 

17&1 

1703 
1764 
l7d5 
1766 
1767 
17763 
1771 
1772 
17/3 

1774 
1775 
1776 
1777 

2000 
2001 
2042 
2043 
2044 
2005 
2006 
2007 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2020 
2021 
2022 
2023 
2024 
2025 
2026 

2027 
2040 
2031 

2032 

2033 
2034 
2035 
2036 
2037 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2050 



2, 
I * 

MCMAGIC»MC1-1 



MCI, 
/ 

/ 

/ 

HC4TAB, 1300000. 

t00000, 
10000* 
KC4F, 1000, 
100. 

10. 
1. 



/DIVIDING BY 1. IS RIDICULOUS,, 
/BUT IT ELIMINATES A SPECIAL CAS 



KCFUD, 


7?bu> 




2000 




0000 


MC260, 


176, 


MC252, 


170. 


MC24w, 


160, 


MC305, 


197. 


MC253, 


171. 


MC3, 


3, 


MG256, 


174. 


MC255, 


173, 



/MAGIC FORMAT FUDGE CONSTANT 



/THESE ARE REALLY OCTAL NUMBERS, 



EJECT 



I PREP ALOG10 



EJECT 



A L 0 G 1 0 



2031 
2032 

2tf 34 

2tf 35 

2*36 

205? 

26*Ott 
4 0 b 1 

20 &2 
2063 
2064 
2065 
2066 
20&7 
20/0 
20/1 
20/2 
20/3 
20/4 
20/5 
20/6 

20// 
2100 

2101 
2102 
2100 
2104 
2105 
4106 
2107 
2110 
2111 
21 U 
2113 
2114 
2115 

21 le 
211/ 

2i2e 

2121 
2122 
2123 
2124 
2125 
212b 
212/ 
2130 
4131 
4132 
2133 
2134 
2135 
213b 
213/ 
414if 
2141 
21 42 
2143 
214^ 
2145 
2146 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
146 MAIN STREET* 
MAYNARQ, MASSACHUSETTS. 

01754 



WRITTEN BY JACK BURNESS. 



EJECT 



AL0G1P# JA 
JSA 
FMUU 
J A 



LOGIC, 7777 
3362 
6754 



ALOG 

AL0G1C 

AL0G10 



/THIS ROUTINE WILL TAKE THE LOG 
/OF THE ARGUMENT • 
/CORRECT FOR THE LOG BASE E . 
/AND RETURN, 



/FUDGE CONSTANT. 



IFWEF SORT 
EJECT 

S Q R T 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
14t> MAIN STREET, 



2M7 


/ 


MAYNARO, MASSACHUSETTS. 


2150 


/ 


01754 


2151 


/ 




2152 


/ 




2153 


/ 




2154 


/ 


WRITTEN BY JACK 8URNE5S, 


2155 


/ 




2156 


/ 




2157 


/ 




2150 


/ 




8161 


/ 




2162 


/ 




2163 


/ 




2164 






2165 


/ 




2166 




I'iJECT 


2167 


/ 




217 6? 


/ 




2l7i 


f 




2172 


/ 




2173 


/ 




2174 


/ 


T HIS IS THg SQUARE ROOT PROGRAM, 


2175 


/ 




2176 


/ 


THE ARGUMENT IS WRITTEN IN THf FORM 1 


2177 


/ 


X»F*C2**2B) WHERE 0«X<1 


22M 


/ 




2201 


/ 


SQRT(X) IS THEN CALCULATED AS SQRTCF)*2**B 


2242 


/ 


SQRTCX) IS CALCULATED BY A LINEAR APPROXIMATION, THE NAT 


2203 


/ 


fcHICH ON WHETHER 1/4<F«1/S OR 1/2<F<1, 


22^4 


/ 


FOLLOWED BY TWQ ITERATIONS OF NEWTON METHOD, 


2245 


/ 




2246 


/ 




2207 


/ 




2210 


/ 




2211 


/ 




2212 


/ 




2213 


/ 




2214 


/ 


KOTEI ENTRY IS NEAR END OF ROUTINE, 


2215 


/ 




2216 


/ 




2217 


/ 




2220 


SQRTOK, 


F ST A SQRTEX+1 /SAVE NUMBER AWAY FOR A SECOND. 


2221 




FLDA SORT 13 /GIT A RIGHT ADJUSTED 13 IN THE 


2222 




F ST A SQRTEX-2 /STORE AWAY RIGHT AHEAD OF THE E 


2223 




FLDA SQRTEX / NO w RETREIVE THE EXPONENT AS HI 


2224 




ALN 0 /CHOP OFF CRAP. 


2225 




J EG SQRTSC /IS IT EXACTLY ZERO? IF 30, SPEC 


2226 




F NORM /NORMALIZE IT. 


2227 




FSUB FPPONE /NOW SUBTRACT ONE FROM IT, 


2230 




FDIV FPPTWO /CHOP IT IN HALF NOW , 


2231 




F ST A MCRTP1 /AND SAVE 1/2 EXP IN A TEMP, 


2232 




ALN 0 /NOW FIX THE EXPONENT, 


2233 




FNORM /AND NORMALIZE IT TO REMOVE UNDE 


2234 




FSUB MCRTP1 /NOW SUBTRACT OFF EXTRANEOUS BIT 


2235 




FMUL FPPTWO /EXPAND IT AGAIN IF AC «0 OR -1J, 


2236 




JGE .+3 /MAKE SURE ITS POSITIVE. 


2237 




FNEG /NOW MAKE IT 0 IF NO BIT OR ♦! I 


2240 


SQRTBK, 


ATX 1 /SAVE IN AN INDEX, 


2241 




FSUB FPPONE /SUBTRACT ONE TO MAKE IT -1 If N 


2242 




ALN 0 /AND NOW SHIFT IT RIGHT, 


2243 




F ST A SQRTEX*1 /AND SAVE IT OVER THE OLD EXPONE 


2244 




FLDA MCRTP1 /RECALL OLD PART 



2245 




AIM 


0 


/FIX IT UP, NOW. 


2246 




FSTA 


MCRTPl 


/AnO STORE IT BACK FOR LATER USE 


2247 


/ 








2250 


/ 




SURTEX IS NOW 


1/4 «X< 1 


2251 


/ 








2252 




FLDA 


SQRTEX+1 


/RECALL NUMBER. 


2253 




FSTA 


MCRTP2 


/SAVE IN A TEMP, 


2254 


/ 








2235 




FMUL 


SQRTS1, 1 


/MULTIPLY BY CORRECT CONSTANT. 


2256 




F ADD 


SQRTS2, 1 


/AND NOW ADD IN CORRECT CONSTANT 


2257 


/ 








22ou 


/ 




note: INITIAL 


APPROXIMATION DEPENDS ON WHETHER X 


2251 


/ 




1/2«X«1 




2262 


/ 








2263 




FSTA 


MCRTP3 


/SAVE IN A SECOND TEMP, 


2264 




FLO A 


MCRTP2 


/RECALL INITIAL. 


2205 




FDIV 


MCRTP3 


/CALCULATE X£0)/xm 


2266 




F ADD 


MCRTP3 


zx f n+x c0)/xcn 


2267 




FDIV 


F P P T w 0 


/i/2(xcn*xc0wxnn 


2270 




FSTA 


MCRTP3 


/SAVE AGAIN, NOW X(2) 


227 1 




FLDA 


MCRTP2 


/RECALL ORIGINAL, 


2272 




FDIV 


MCRTP3 


/X (0) /X (2) 


2273 




F ADD 


MCRTP3 


/XC2)+X(0)/X(2) 


2274 




FSTA 


SflRTEX+i 


/NOW STORE AWAY FOR FINAL EXPONE 


2275 


/ 








227b 




STARTD 






2277 


/ 








234)0 




FCLA 




/ZERO HIGH ORDER EXPONENT PART. 


23^1 




FSTA 


SQRTEX-i 




2302 




FLDA 


MCRTPl 


/RECALL MODIFIED EXPONENT. 


2303 




F ADDM 


SQRTEX 


/UPDATE FRACTIONAL EXPONENT. 


2304 


/ 








2305 




STARTF 




/RETRUN TO FLOATING MODE, 


2306 


/ 








2307 




FLDA 


SGRTEX*l 


/PICK UP THE ANSWER, 


2310 


/ 








23U 


/ 




AND RETURN, 




2312 


/ 








2313 


/ 








2314 


SORT, 


JA 


• 


/ SOU ARE ROOT INTRY AND EXIT. 


2315 




JGT 


SQRTOK 


/IF GREATER THgN 0 PROCEED, 


2316 




JEQ 


SORT 


/IF ZERO JUST RETURN, 


2317 




T R A P 7 


3 


/IF LESS THEN 0 GIVE A TRAP 


232C. 




J A 


SORT 


/BYE BYE, 


2321 


/ 








2322 


/ 








2323 


/ 








2324 


SqRTSC, 


FSU8 


FPPONE 


/SPECIAL. CASE FUDGE, 


2325 




FSTA 


MCRTPl 


/SET EXPONENT ADD ON TO -1, 


2326 




PNEG 




/AND SET ODD BIT ON, 


2327 




J A 


SDPTBK 


/AND GO BACK UP, 


2330 


/ 








2331 


/ 








2352 


/ 








2353 










2354 










2335 










2336 


SCRTS1 , 


0 




/IF BETWEEN 1/4 & t/2 


2337 




3200 






2340 




0 






2341 




0 




/IF BETWEEN 1/2 & t 


2342 




2240 







2343 




13 


2344 


/ 




2345 


5QRTS2# 


7777 /IF BETWEEN i/4 & 1/2 


2346 




2327 


2347' 




7 77 2 


2350 




7 777 /IF BETWEEN 1/2 &i 


2351 




330(3 


2392 




id 


2353 


/ 




2354 


/ 




2355 


/ 




2556 


/ 




235/ 




isa /THE MANTISSA NO EXPOENT 


236(9 




a 


2361 


SqRTEX i 




2362 




0 


2363 


SQRT13, 


0 


2364 




15 


2365 




13 /PHONEY EXPONENT PATCH, 


2366 


7 




2367 






23/(5 


/ 




23?i 




i 


2372 




tFREF ALOG 


2373 


* 




2374 


/ 




2375 


/ 




2376 


/ 


A L 0 G 


2377 






2440 






2441 






24^2 


/ 




2443 


/ 




2444 






2445 






2446 


/ 


COPYRIGHT 1971 


2447 


/ 


DIGITAL EQUIPMENT CORPORATION 


2410 


/ 


146 MAIN STREET. 


241 1 


* 


^AYNARD, MAS3ACHU5SETTS. 


2412 


/ 


017S4 


2413 


7 




2414 


/ 




2415 


7 




2416 


7 


WRITTEN BY JACK 8URNESS, 


2417 


7 




2420 






2421 


/ 




2422 


7 




2423 


/ 




2424 


/ 




2425 


/ 




2426 


7 




2427 


7 




2430 




E JtCT 


2431 






2432 






2433 






2434 






2435 






2436 






2437 


AtOOOK, 


ID* *1,0 /SET UP FOR POSITIVE SIGN 


2440 




FSTA MCRTPi /SAVE IN A Tf MP, 



2 4 41 


F SU H 


F PP ONE 




/KNOCK OFF ONE, 


2 4 42 


J EG 


ALOG 




/IF ZERO EXIT. LOG(1)»0 


2 4 4 3 


JGE 


ALOGST 




/IF POSITIVE LQG>?> 


2 4 44 


F LO A 


F P P 0 N E 




/ N E G I T E . INVERT IT, 


2 4 4 5 


FDIV 


MCKTP 1 




/BY DIVIDING INTO ONE, 


2 4 46 


F ST A 


M C RT P 1 






2 4 4/ 


toy 


0 i 0 




/RESET SIGN TO NEGATIVE,, 


2 4 30 


J A 






/AVOID USELESS LOAQ I h - S 't R * T 1 0 N » 


2 4 3 1 


/ 








24 32 


ALOGST, HDA 


MCRTP1 




/RECALL NUMBER. 


2 4 33 


F DIV 


FPPTwQ 




/CUT IN HALF. 


2434 


F S T A 


ALOGTM 




/PREPARE FOR EXPONENT DIDDLE. 


2455 


F LP a 


ALOGMG 




/SET THE EXPONENT OF THE EXPQNEN 


2456 


(- >ST A 


ALQGTMi 


3 


/SO THAT NORMALIZE WILL DO JOB, 


24 57 


FSTA 


ALOGTM+1 


/AND ALSO ZERO OUT LQW ORDER PQA 


2460 


P ID A 


ALOGTM- 


1 


/RECALL THE NUMBER 


24ol 


F NORM 






/NORMALIZE IT, 


24o2 


FMUL 


AL0GE2 




/NOW MULITPLV EXPONENT BY LOG E 


2463 


FSTA 


MCPTP2 




/AND SAVE IT FOR A SECOND , 


2464 


FID A 


M C R T P 1 




/RECALL THE NUMBER AGAIN, 


2465 


FSTA 


AuOGTM 




/STORE IN THE TEMPORARY WORKER, 


2466 


FID A 


FPPPI2- 


2 


/RECALL WORD WITH LOW OR 


2467 


FSTA 


ALOGTM* 


2 


/STORE AWAY, 


24 7 0 


F I D A 


ALOGTM 




/RECALL NUMBER w I T H an EXPONENT 


2 4/1 


F SUB 


FPPONE 




/SUBTRACT A^AY, 


247? 


FSTA 


KCRTP1 




/AND STORE 


24 7 3 


F 'MUL 


AL0GL8 




/MULTIPLY BY THE CONSTANT, 


2 4/4 


F ADD 


AL0GL7 




i i a n * a i 

/ADD IN 


24/5 


FMtJL 


^CRTPl 




/MULT , 


24/t? 


F ADD 


ALOGL6 




/AND SO ON DOWN THE LINE, 


247 7 


F MUL 


MCRTP1 






250£ 


F ADO 


AL0GL5 






2501 


F MUL 


MCHTP1 






2542 


F ADO 


AL0GL4 






2503 


F MUL 


MCHTPl 






2504 


F ADO 


AL0GL3 






2505 


F MUL 


MCKTP1 






2506 


F ADO 


AL0GL2 






2 50 7 


F MUL 


MCRT P 1 






2 3 I p 


F ADO 


A L OGL 1 






25 1 1 


F MUL 


MCKTP1 






25 12 


F ADO 


MLRTP2 




/CORRECT NOW, ADD IN EXPONENT, 


2513 


JXN 


ALOG,? 1 




/EXIT IF SIGN IS OK, 


2514 


FNfcG 






/ELSE NEGATE IT, 


2515 


/ 








2516 


alOG, JA 


• 




/ENTRY AND EXIT, 


2517 


JGT 


ALOGOK 




/IF GREATER THEN 0, START DOING 


2520 


JEG 


ALOG^ 




/IF «3 THEN ERROR 


2521 


T» AP7 


6 




/LESS THEN 0, 


2522 


J A 


ALOG 




/RETURN, 


2523 










2524 


A L 0 6 ?■ • T R A P 7 


7 




/ZERO TRAP, 


2525 


J A 


ALOG 




/RETURN NOW, 


2526 










2527 










2 5 30 










2531 










2532 










2533 










2534 










^535 










2536 











2537 / 

2540 / 

2541 / 

2542 t /WORKING SPACE FOR EXPONENT OIDD 

2543 2 

2544 g< 

2545 ALOGTM, e 
2545 e 
2547 (£ 

2550 e 

2551 / 

2552 / 

2553 / 

2534 AlOGMG, 0 
2555 e 

2555 13 /CORRECT EXPONENT DXODLER. 

2557 / 

2550 / 

2551 / 

2552 / 

2553 ALOGlii ® 
2504 3777 
2555 7742 
2555 / 

2567 AL0GE2, Q 
25/0 2613 

2571 4414 

2572 / 

25/3 AL0GU2, 7777 

2574 4000 

2575 «100 
2575 / 

2577 AL06L3, 777? 
25*0 8:517 
2541 03191 

2602 / 

2603 AL0GL4, 7776 
2e4 4 4113 
2605 7211 
26tf6 / 

26tf7 AL0GL5, 7776 

2610 2535 

2611 3301 

2612 / 

2613 A u 0 G t $ | 7775 
26U «746 

2615 B!771 

2616 / 

2617 AL0GL7, 7774 

2620 2236 

2621 «304 
26*2 / 

2623 AL0GU8, 7771 

2624 "544 

2625 1735 



2626 
2627 
2630 
2641 
2632 
2633 
2644 



2635 
2636 
2637 

2641 
2642 
2643 

2644 
3646 
264b 

264; 

2630 
265 J 

2652 
<:653 

2o04 
26o5 
2656 
263/ 

26665 
2661 
2662 
265J 
2664 
2665 
2666 
2657 
26/0 
2671 
2672 
26/3 
26/4 
26/5 
2676 
2677 
27rftf 
27 41 
2/02 
2703 
2744 
2/05 
2/06 
2747 
2710 
27 1 l 

2?12 
2713 
2714 
2716 

2/;6 

27 17 
2720 
272 1 
2722 
2723 
2724 
2725 
2726 
2727 
2730 
2731 
2732 



IFREF 



SIN 



I N 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
146 main STREET, 
MAYNARO, MASSACHUSETTS. 

P1754 



WRITTEN BY JACK BURNESS, 



EJECT 



SINABT, 


FLDA 


MCRTP2 


/RECALL NUMBER IF TOO SM ALE 




JXN 


SIN,0 


/EXIT IF SAME SIGN, 


/ 


FN&G 




/ELSE NEGATE IT, 


/ 
/ 

SIN, 


JA 




/CALCULATES THE SIGN OP FAC IN R 




LDX 


M#0 


/SET SIGN TO POSITIVE, 




JGT 


SINMOO 


/IF POSITIVE BYPASS FUDGE, 




JEQ 


SIN 


/IF ZERO EXIT, 




FNEG 




/NEGATIVE, NEGATE AC, SINC*X)p-5 




LDX 


0,0 


/SET SIGN TO MINUS, 


STNMOD , 


JAL 


SINER 


/IF SIGN CAN T INT, THEN ERROR. 




FOIV 


FPP2PI 


/REDUCE TO BELOW TWO PI, 




F ST A 


MCRTP1 


/SAVE IN A TEMP, 




ALN 


Z 






f NORM 




/INTERGIZE IT, 




FNEG 







2733 




F ADO 


MCRTPl 


/RECALL NUMBER * AC MOW <0 


2734 




FMUL 


FPP2PI 


/NOW MULTIPLY BACK. 


27 3 5 




F ST A 


MCRTP2 


/AND SAVE AWAY, 


2736 




P SUB 


FPPPI 


/SUBTRACT OFF PI, 


2737 




JIT 


SINP 


/LESS THEN PI, 


2740 




F 5T A 


MCRTP2 


/RESTORE AS 2. 


2741 




*TA 


0 


/INVERT THE SIGN, 


2742 




FNEG 






2743 




F SUB 


FPPONE 


/SIN(X-PI) «-SINtX) 


2744 




ATX 


G? 


/AND PUT BACK. 


2745 


/ 








2746 


5INP, 


PL OA 


MCRTP2 


/RECALL MAGIC GOODY, 


2747 




FSUB 


FPPPI2 


/TEST TO SEE IF X<PI/2 


2750 




JIT 


SINPP 


/YEP. 


2731 


/ 




2752 




P'LOA 


FPPPI 


/SIN(X)«$INCPI-X) 


27 53 




FSUB 


MCRTP2 




2754 




fsta 


MCRTP2 


/AND STORE IT SACK. 


2735 


/ 








2756 


3INPP, 


FLO A 


MCRTP2 


/GET THE MAGIC NUMBER, 


2737 




FSUB 


SINTST 


/SEE IF ITS CLOSE TO AN EDGE 


2760 




JLI 


SINA8T 


/IT IS, AVOID ITERATION, SIN(X)» 


2761 




FLO A 


MCRTP2 


/RECALL NUMBER TO BE WORKED ON, 


2762 




FDIV 


FPPPI2 


/DIVIDE BY PI OVER TWO, 


2763 




FSTA 


MCRTP2 


/AND STORE BACK, 


2764 




FMUL 


MCRTP2 


/MULTIPLY OUT, 


2765 




F ST A 


MCRTPl 




27 56 




FMUL 


SINC9 


/NOW DO THE STANDARD ITERATION, 


2767 




F ADD 


SINC7 




2770 




FMUL 


MCRTPl 




2771 




F ADO 


SINC5 




277a 




FMUL 


MCRTPl 




2773 




FAOO 


SINC3 




2774 




FMUL 


MCRTPl 




2775 




F ADO 


FPPPI2 


/ADD IN PI OVER 2 


2776 




FMUL 


MCRTP2 


/DO THE FINAL MULTIPLY, 


2777 




JXN 


SIN,0 


/SHALL WE NEGATE 


5000 




FNEG 




/YEP 


3001 




J A 


SIN 


/AND RETURN, 


3002 


/ 








3003 


/ 








3004 


/ 








3005 


/ 








3006 


SINC9, 


7764 






3007 




srsei 






3010 




7015 






5011 


/ 








3012 


SINC7, 


7 771 






3013 




5-464 






5014 




5515 






3015 


/ 








3016 


8INC5, 


7775 






3017 




2 431 






5020 




5362 






3021 


/ 








3022 


8INC3, 


61000 






3023 




5 325 






3024 




1414 






5025 


/ 








3026 


SINTST, 


7 77 n 






3027 




2000 






5030 




e>00p 







345i 

3433 

3436 
3037 
34 4tf 
3441 
3442 
3443 
3444 
3445 
3446 

3*}4; 

3450 

3431 
34 5k! 
3433 
3454 
3435 
3^56 
3457 
346tf 
3401 
3402 
3{5b3 
3464 
3465 
5466 
3467 
3474 
347 1 

34/2 
3473 
3474 
3475 
34/6 
3477 
3144 
3141 
3142 

3143 
5144 

3145 
3146 
3147 

3U4 
5111 

5112 



SlNfcR 



TRAP/ 
JA 



5 

SIN 



/RETURN ON ERROR, 



IFREF A f A N 



A T A N 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
146 MAIN STREET, 
MAYNARD, MASSACHUS5ETTS. 

01754 



WRITTEN BY JACK BURNESS, 



EJECT 



3113 


ATAN, JA 




/NEW ARCTANGENT ROUTINE, 


5114 


10% 


•1,0 


/REMEMBER SIGN 


3115 


JGE 


.♦5 




3116 


LOX 


4,0 


/SAVE THE SIGN, 


511; 


FNEG 




/NEGATE THE F AC UBSJ 


5124 


F ST A 


MCRTP1 


/AND STORE AWAY, 


3121 


FSTA 


MCRTP2 




3122 


FSUH 


ATANC1 


/TEST TO SEE IF TOO SMALL , 


5123 


JIE 


ATANBG 


/IT IS, ATAN(X)«X 


3124 


PSU8 


ATANC2 


/TEST TO SEE IF TOO BIG. 


5125 


JtE 


AT ANUw 


/IT I5NT, 


3126 


FID A 


FPPONE 


/TO BIG. INVERT IT, 



3127 






fcCRTr i 


3130 




*8TA 


MCRTPl 


3131 


/ 






3132 


ATANLW, 


*CLA 




3133 




FSTA 


MCRTP3 


3134 




*LDA 


MCRTP1 


3135 




?SU8 


ATANC3 


3136 




JLT 


ATANNT 


3137 




* LD A 


ATANC4 


3140 




P ADQM 


MCRTPl 


3141 




f L0 A 


ATANCJ 


3142 




FOIV 


MCRTPl 


3143 




FADO 


ATANC4 


3144 




F8TA 


MCRTPl 


3145 




*LOA 


ATANC5 


3146 




?8TA 


MCRTP3 


3147 


/ 






3*50 


ATAMMTr 


?UDA 


MCRTP 1 


3151 




FMUL 


MCRTPl 


3132 




*STA 


MCRTP4 


3153 




^ LD A 


ATANC6 


3154 




*"UL 


MCRTP4 


3155 




P ADD 


ATANC7 


3156 




FMUL 


MCRTP4 


3157 




f ADD 


ATANC8 


3160 




*MUL 


MCRTP4 


3161 




'ADD 


ATANC9 


3162 




F MUL 


MCRTP4 


3163 




* ADD 


PPP0N6 


3164 




^MUL 


MCRTP | 


3165 




#ADO 


MCRTP3 


3166 




FSTA 


MCRTPl 


3167 




FLDA 


MCRTP2 


3170 




fsub 


FPPONE 


3171 




JLE 


ATANBG 


3172 




►'IDA 


ATANCM 


3173 




F SUB 


MCRTPl 


3174 




J A 


«+3 


3175 


/ 






3J76 


ATANBG, 


FLO A 


MCRTPl 


3177 






AT AN » 0 


3240 




l» N E G 




3201 




J A 


ATAN 


3202 


/ 






3203 


/ 






3204 


/ 






3205 


7 






3206 


7 






3207 


ATANC1, 


*15 




3210 




2000 




3211 




0000 




3212 


/ 






3213 


AT ANC2 # 


0 




3214 




3777 




t O 4 ft 

4216 




7000 




3216 


7 






3217 


ATANC3, 


"•1 




3220 




2111 




3221 




4121 




3222 


/ 






3223 


ATANC4, 


1 




3224 




3355 





/CLEAR OUT TEMP. 
/RECALL NUMBER. 

/START THE KNOCKING OFF PROCESS, 
/WRONG SECTOR. 
/BOP UP ORIGINAL. 

/GET MAGIC NUMBER. 



/RECALL AND SQUARE IT. 

/YET ANOTHER TEMP, 



/LOWER LIMIT TEST, 



/UPPER LIMIT TEST, 



3225 




4754 




/ 




322; 


ATANC5, 


& 






2060 


3231 




251 1 


3242 


/ 




3233 


ATANC6, 


m 3 


4234 




3023 


3235 




1227 


3236 


/ 




3237 


ATANC7, 


»2 


3240 




5S66 


3241 




7220 


3242 


/ 




3243 


AT ANC8, 


-2 


3244 




3146 


3245 




*7 40 


3246 


/ 




3247 


ATANC9, 


* 1 


3230 




5252 


3231 




5262 


3232 


/ 




3253 


ATAKCM, 


1 


3234 




3110 


3235 




3755 


3236 


/ 




3237 


AT ANC J » 


•4, 


3230 


/ 




3261 


/ 




3232 


/ 




3263 


/ 




3264 


/ 




4235 


/ 




4236 




S 


3237 




I PREF EXP 


42/0 


/ 




3271 


/ 




3272 


/ 




3273 


/ 




32/4 


/ 




3275 


/ 


E X P 


4276 


/ 


m m m 


4277 


/ 




33*0 


/ 




33*1 


/ 




33*2 


/ 




43*3 


/ 




33*4 


/ 




33*5 


/ 




33*6 


/ 




33*7 


/ 


COPYRIGHT 1971 


3310 


/ 


DIGITAL EQUIPMENT CORPORATION 


3311 


/ 


146 MAIN STREET » 


3312 


/ 


MAYNARO, MASSACHUSETTS, 


3313 


/ 


01794 


3314 


> 




3315 


/ 




3316 


/ 




3317 


/ 


WRITTEN BY JACK 8URNESS , 


332* 


/ 




3321 


/ 




3322 


/ 





00<b 


/ 








43<!4 


/ 








3325 


/ 








43*e 


/ 




















f 








4341 




EJECT 






4442 


/ 








4343 


/ 








4344 










4345 










4346 


/ 








3347 




ft DA 


EXPFUD 


/AN EXIT. 


3340 


EXP, 


J A 


• 


/ENTRY 


3341 




LDX 


• 1 #0 


/PRESERVE SIGN, 


1 1 i A 

4342 




J&g 


a +5 




* '* A \ 




PNEG 




/IF NEGATIVE NEGATE IT, 






LDX 


0 » 0 


/AND REMEMBER ITjBUSBY, 


11 

00**D 




F^UL 


EXP2E 


/MULTIPLY TO BINARY TYPE, 


44 40 




FSTA 


MCRTP1 


/AND SAVE IT AWAY, 


00**/ 




f it 1 


B V D P Q 

EXPEH 


/CAN T FIX IT* ERROR, 


000V 




Al N 


0 


/FIX IT UP, 


OO 3 1 




ET Hi W A 

r »T A 


MCRTP3 


/AND SAVE IT, 


4352 




P NO^M 




/NOW NORMALIZE FOR OUR CQMPUTATI 


4393 




FNEG 




/NEGATE THE FAC 


3354 




F ADD 


MCRTP 1 


/ADD IN BEFORE NORMAL, 






ft <i • A 


f^CNT r 1 


/AND STORE BACK, NO FADDM 


4430 




FMUL 


MCRTP 1 


/NOW SQUARE IT, 


X 1 « T 

4337 




F S T A 


MCRTP2 


/AND SAVE IT, 


'I *• 4L i-i 




F ADD 


EXPDF 


/START THE ITERATION, 


000 1 




F S T A 


MCRTP4 


/SAVE IN ANOTHER TEMP, 


3362 




F L D A 


ExPCF 


/NEXT CONSTANT, 


3363 




FDIV 


MCRTP4 


/AND DIVIDE INTO IT, 


3364 




FSUB 


MCRTP1 


/SUBTRACT BACK NOW, 


3365 




F ADD 


EXPAF 


/NEXT CONSTANT, 

/AND SAVE AGAIN, KEEP THIS UP, 


3366 




FST A 


MCRTP4 


3367 




F l„ D A 


EXPBF 




437(0 




FHUL 


MCRTP2 




4371 




F A D 0 M 


MCRTP4 




4372 




FID A 


MCRTP1 




3373 




F D I V 


MCRTP4 




4374 




FMUL 


FPPTWQ 




4375 




F ADD 


FPPONE 




4370 




FST A 


EXPFUD 


/NOW FIDDLE THE EXPONENT, 


4377 




$y ARTD 






44^0 




FLO A 


MCRTP3 




4401 




F ft D D M 


EXPFUD-t 


/EXPONENT UPDATE, 


3402 




S' f ARTP 






4403 




JXN 


EXP-2, 0 


/NO INVERSION NECESSARY, RETURN, 


3404 




FUD A 


FPPONE 


/INVERT IT 


3405 




FDIV 


EXPFUD 




4406 






EXP 




3407 


/ 








3410 


/ 








4411 


/ 








3412 


E X P A F , 


4 






4413 




2*7? 






4414 




M02 






4415 


/ 








4416 


EyPBF , 


7 '7 4 






4417 




21S7 






4420 




5157 







3421 
3422 
3423 
3424 
3425 
3426 
3427 
343® 
3431 

3432 
3433 
3434 
3435 
3436 
3437 
344fc) 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
346* 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
34 7 e 
3471 

34/2 
3473 
3474 
3475 
3476 
3477 
3500 
3501 
3502 

3503 
3504 
3505 

3506 
3507 
3510 
55U 

3512 
3513 
3514 
3515 
3516 



/ 

I y P D F 



*PEw, 



12 

5454 

343 
7 

2566 
534 1 

8 



E ¥ P F u D » 0 



trap; 

JA 



1 

27^5 
2435 



5 

IFREF 
EJECT 



4 

EXP 



PUTSTH 



COPYRIGHT 1971 

DIGITAL EQUIPMENT CORPORATION 
146 MAIN STREET, 
KAYNARD. MASSACHUSETTS. 

P1754 



WRITTEN BY JACK BURNESS , 



3517 
3520 
3521 
3522 
3523 
3524 
3525 

3526 
3527 
3530 
3531 

3532 
3533 

3534 
3535 

3536 
3537 
3540 

3541 
3542 
3543 
3544 
3545 
3546 
3547 
3550 
3531 
3552 
3553 
3554 

3535 
3556 
3557 
3560 
3561 
3562 
3563 
3564 
3566 
3566 
3567 
3570 
3571 
3572 
3573 

3574 
3575 
3576 
3577 
3600 
3641 
3602 
3603 
3604 



EJECT 



PUTSTR, 



/ 
/ 
/ 

PUTSRL, 



J* 
J 3 A 

MEG 

ATX 
JSA 
J 5 A 
J*N 
J * 



J A 

8TART0 

fLO-A I 
F ST A 
P wD A 
F ADOm 
8TARTF 
KDA 
FNORM 
JA 



27 
0 



UT3WB, 0 



THIS ROUTINE UNPACKS A STRING AND SENDS IT TO "P 



PUTSRL 
PUTSTR 

1 

PUTSRL 
PUTC 
,-4,1* 
PUTSTR 



HCHTP8 
PUTSRB 
FPPPI2M 
MCRTPB 

PUT5RB-2 

PUTSRL 



FPPNXT • , 



/ENTRY POINT, 

/GET A CHARACTER NOW, 

/IF ZERO EXIT, 

/ELSE SEND IT TO AN INDEX REGIST 

/GET ANOTHER CHAR, 
/OUTPUT IT, 

/LOOP AROUND FOR AWHILE, 
/AND THEN RETURN. 



/THE ENTRY POINT, 
/GET INTO MINI-MODE 
/GET A DOUBLE WORD, 
/AND SAVE AWAY, 

/NOW ADO "00000001" TO THE POINT 

/AND STORE BACK, 

/GO BACK INTO FLOATING MODE. 

/RECALL MYSTERY WORD, 

/NORMALIZE IT. 

/AND EXIT NOW. 



/NORMALIZATION FUDGE, 



0000 tRRQRS 



FPQJV0 00462 
FPEXtV 00532 
FFfcXUD 00437 
FFfRcO 00446 
FPI07T 00464 
FPJETHP 00472 
FPFAL 00361 
FPPARG 00324 
FFPCOH 00507 
FFFXlR 00301 
FPPCH 00200 
FPPDtR 00463 
FPPDUT 00330 
FPPDVid 00249 
FPPfct R 00436 
FPPEXT 00257 

FPPFAU 00314 
FPPFtR 00447 
FPPFKQ 00263 
FPPJfcR 00465 
FPPJNT 0040B1 
FPPU-T 00261 
FPPJST 00525 
FPPXia 00540 
FPPJMP 00210 
FPPKNO 00231 
FPPUR 00275 
FPPINC 00350 
FPPMQ 00347 
FPPNXT 00617 
FPPOfcR 00533 
FPPOLO 00200 
FPPONt 00600 
FPPOOO 00306 
FPPOuT 00335 
FPPOVR 00247 
FPPPCS 00233 
FPPPl 00611 
FPPP12 00606 
FPPRfcT 00316 
FPPShT 00263 
FPPTaS 00353 
FPPTfcR 00531 
FPPTkP 00255 
FPPTTT 00530 
FPPTTY 00312 
FPPT*U 00603 
FPFIM 00440 
FPPUUQ 00251 
FPPXXX 0^346 
FPP2P J, 00614 
MC«TPB 77000 
MC«TP1 77030 
MCRTP2 77033 
MCRTP3 77036 
MC«TP4 77041 
MCRTP5 77044 
MC«TP6 77047 
MCRTP7 77052 
MC«TP8 77055 



INDEX 



Active parameter table, 5 
ASCII 

character packing, 8 

code conversion, 1 
Asterisk (*) usage 

printout, 10 

RUBOUT , 7 
Automatic line editing, 6, 7 



Back slash ( \ ) usage, 7 
Bell signal, 7 
Buffered I/O routines, 6 
length, 7 

loading priority, 7 



Call format, 2 

Calling PDP-8 program, 8 

Carriage return (in GETC) , 6, 7 

Chaining files, 12 

Character deletion, 7 

Character received exit function, 4 

Clear Nucleus function, 4 

Code conversion, 1 

Conditions, special, 1 

Constants, library, 17, 18 

Conversion 

ASCII characters to floating 
point number, 9 

code , 1 

routines, 10, 11 
Counter, setting program, 2 
CRLF routine , 9 
CTRL/U, 7 

Customizing the library, 16 
library constants, 16 
modifying assembly sequence, 16 



Deletion of 

characters, 7 

line, 7 
Description of FPP Support 

Library, 1 
Division by zero, 2 



E conversion or format, 10 
Error condition indicators, 12 
Error exits, 17 
Errors, typing, 7 
Example program, 12, 13 
Exits, 3, 4 

error, 17 

zero divide, 2 
Exponent overflow, 3 



F conversion or format, 10 
Fail-to-start exit location, 4 
FEXIT, normal exit condition, 4 
Field limitation, 2 
Format 

E, 10 

F, 10 
P, 11 

FPHLT, 4 
FPPORG, 7 

Fraction overflow exit, 3 
Functions, mathematical, 1 

GETC, 6, 17 
GETNUM routine , 9 

Hardware requirements, 1 



Implementing mathematical 

routines, 12 
Instruction trap exit, 3 
Interrupts, 4, 5 

PDP-8 mode, 2 
IOOUTW, 7 
IOT exit, 4 



Job termination, 7 



Library 

constants, 17, 18 

customizing, 16 

modification, 16 
LINCtapes, program library, 12 
Line 

deletion, 7 

editing, automatic, 6, 7 
Loading 

buffered I/O, 6 
location, 7 
routines , 7 



Mathematical functions, 1 
Mathematical routines, 7 

description, 11 through 16 

implementation, 12 

location, 7 



Normal exit condition (FEXIT) , 4 
Nucleus, 1, 2 

functions, 2, 3, 4 



X-l 



Output buffer full signal, 7 
Overflow 

condition, 13 

exponent, 3 

fraction exit, 3 



P conversion or format, 11 
PDP-8 

mode interrupts, 2 

program call, £ 
Pointer, 4, 8 
Program example, 12, 13 
Program library LINCtapes, 12 
PUTC, 6, 17 
PUTSTR routine, 9 



Routines, mathematical, 11 
RUBOUT , 7 



Scientific notation, 11 
Set program counter, 2 
Special conditions , 1 
Start FPP function, 4 



Termination of job, 7 
Trap instructions, 3 
TRAP 3 instructions, 12 
TRAP 7 

error exits, 17 
instructions, 12 



Underflow 

condition, 13 

exit, 3 
Utility routines, 7, 8 

description, 8, 9 

exit locations, 8 

location, 7 

used without Nucleus, 
Unusual events, 1 



Zero divide, 2, 3 
exit, 2 



X-2 



HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 

Digital Software News for the PDP-8 & PDP-12 

Digital Software News for the PDP-11 

Digital Software News for the PDP-9/15 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of general interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Pro^im Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 



FPP SUPPORT LIBRARY USER'S GUIDE 

DEC-12-YEXA-D 



READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manua I . 

Please comment on this manual's completeness, accuracy, organization, usability and read- 
ability. 



Did you find errors in this manual? If so, specify by page, 



How can this manual be improved? 



Other comments? 



Please state your position. Date: 
Name: Organization: 



Street: Department: 



City: State: Zip or Country 



Fold Here — 



Do Not Tear - Fold Here and Staple 
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